/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / simple.elc.z / simple.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 70 73 69 |piled by| rms@psi|
|00000020| 6c 6f 63 69 6e 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |locin.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 54 68 75 20 41 75 67 20 |.edu on |Thu Aug |
|00000040| 20 38 20 32 30 3a 32 32 | 3a 30 36 20 31 39 39 36 | 8 20:22|:06 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 68 6f 6d 65 2f 66 73 66 | 2f 72 6d 73 2f 65 31 39 |home/fsf|/rms/e19|
|00000070| 2f 6c 69 73 70 2f 73 69 | 6d 70 6c 65 2e 65 6c 0a |/lisp/si|mple.el.|
|00000080| 3b 3b 3b 20 65 6d 61 63 | 73 20 76 65 72 73 69 6f |;;; emac|s versio|
|00000090| 6e 20 31 39 2e 33 32 2e | 33 2e 0a 3b 3b 3b 20 62 |n 19.32.|3..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 2e | 32 39 22 29 29 29 0a 20 |ion "19.|29"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 73 69 6d 70 |   (erro|r "`simp|
|000001a0| 6c 65 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |le.el' w|as compi|
|000001b0| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 31 39 |led for |Emacs 19|
|000001c0| 2e 32 39 20 6f 72 20 6c | 61 74 65 72 22 29 29 0a |.29 or l|ater")).|
|000001d0| 0a 0a 23 40 32 34 31 20 | 49 6e 73 65 72 74 20 61 |..#@241 |Insert a|
|000001e0| 20 6e 65 77 6c 69 6e 65 | 2c 20 61 6e 64 20 6d 6f | newline|, and mo|
|000001f0| 76 65 20 74 6f 20 6c 65 | 66 74 20 6d 61 72 67 69 |ve to le|ft margi|
|00000200| 6e 20 6f 66 20 74 68 65 | 20 6e 65 77 20 6c 69 6e |n of the| new lin|
|00000210| 65 20 69 66 20 69 74 27 | 73 20 62 6c 61 6e 6b 2e |e if it'|s blank.|
|00000220| 0a 54 68 65 20 6e 65 77 | 6c 69 6e 65 20 69 73 20 |.The new|line is |
|00000230| 6d 61 72 6b 65 64 20 77 | 69 74 68 20 74 68 65 20 |marked w|ith the |
|00000240| 74 65 78 74 2d 70 72 6f | 70 65 72 74 79 20 60 68 |text-pro|perty `h|
|00000250| 61 72 64 27 2e 0a 57 69 | 74 68 20 61 72 67 2c 20 |ard'..Wi|th arg, |
|00000260| 69 6e 73 65 72 74 20 74 | 68 61 74 20 6d 61 6e 79 |insert t|hat many|
|00000270| 20 6e 65 77 6c 69 6e 65 | 73 2e 0a 49 6e 20 41 75 | newline|s..In Au|
|00000280| 74 6f 20 46 69 6c 6c 20 | 6d 6f 64 65 2c 20 69 66 |to Fill |mode, if|
|00000290| 20 6e 6f 20 6e 75 6d 65 | 72 69 63 20 61 72 67 2c | no nume|ric arg,|
|000002a0| 20 62 72 65 61 6b 20 74 | 68 65 20 70 72 65 63 65 | break t|he prece|
|000002b0| 64 69 6e 67 20 6c 69 6e | 65 20 69 66 20 69 74 27 |ding lin|e if it'|
|000002c0| 73 20 6c 6f 6e 67 2e 1f | 0a 28 64 65 66 61 6c 69 |s long..|.(defali|
|000002d0| 61 73 20 27 6e 65 77 6c | 69 6e 65 20 23 5b 28 26 |as 'newl|ine #[(&|
|000002e0| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 c0 |optional| arg) ".|
|000002f0| 20 88 6f 3f 85 32 00 6e | 85 32 00 c1 60 53 c2 5c | .o?.2.n|.2..`S.\|
|00000300| 22 3f 85 32 00 c1 60 53 | c3 5c 22 3f 85 32 00 c1 |"?.2..`S|.\"?.2..|
|00000310| 60 53 c4 5c 22 3f 85 32 | 00 c5 60 21 86 2e 00 c6 |`S.\"?.2|..`!....|
|00000320| 60 c7 5a 57 6e 85 3a 00 | c8 0e 09 21 60 1e 5c 6e |`.ZWn.:.|...!`.\n|
|00000330| 1e 0b 89 1e 5c 66 83 49 | 00 cd ce 21 88 cf 0e 10 |....\f.I|...!....|
|00000340| 86 51 00 0e 5c 66 3f 85 | 57 00 0e 11 1e 11 1e 12 |.Q..\f?.|W.......|
|00000350| d3 8e d4 d5 0e 10 21 21 | 88 2b 0e 5c 66 83 6e 00 |......!!|.+.\f.n.|
|00000360| cd ce 21 88 0e 16 83 ac | 00 60 0e 10 83 80 00 d5 |..!.....|.`......|
|00000370| 0e 10 21 82 81 00 ce 5a | 1e 17 d8 0e 17 d9 5c 22 |..!....Z|......\"|
|00000380| 1e 1a db 0e 17 60 dc dd | 24 88 0e 1a 3c 83 ab 00 |.....`..|$...<...|
|00000390| dc 0e 1a 3e 84 ab 00 db | 0e 17 60 d9 dc 0e 1a 42 |...>....|..`....B|
|000003a0| 24 88 2a 0e 5c 66 84 ce | 00 8a 0e 5c 6e 62 88 de |$.*.\f..|...\nb..|
|000003b0| 79 88 c8 df 21 83 cd 00 | e0 20 de 56 83 cd 00 60 |y...!...|. .V...`|
|000003c0| e1 7f 88 60 7c 88 29 0e | 5c 66 83 d6 00 ce 75 88 |...`|.).|\f....u.|
|000003d0| 0e 0b 84 e0 00 e2 e1 dd | 5c 22 88 2b e1 87 22 20 |........|\".+.." |
|000003e0| 5b 62 61 72 66 2d 69 66 | 2d 62 75 66 66 65 72 2d |[barf-if|-buffer-|
|000003f0| 72 65 61 64 2d 6f 6e 6c | 79 20 67 65 74 2d 63 68 |read-onl|y get-ch|
|00000400| 61 72 2d 70 72 6f 70 65 | 72 74 79 20 69 6e 74 61 |ar-prope|rty inta|
|00000410| 6e 67 69 62 6c 65 20 72 | 65 61 64 2d 6f 6e 6c 79 |ngible r|ead-only|
|00000420| 20 69 6e 76 69 73 69 62 | 6c 65 20 70 72 65 76 69 | invisib|le previ|
|00000430| 6f 75 73 2d 70 72 6f 70 | 65 72 74 79 2d 63 68 61 |ous-prop|erty-cha|
|00000440| 6e 67 65 20 2d 32 20 32 | 20 6c 6f 6f 6b 69 6e 67 |nge -2 2| looking|
|00000450| 2d 61 74 20 70 61 67 65 | 2d 64 65 6c 69 6d 69 74 |-at page|-delimit|
|00000460| 65 72 20 62 65 66 6f 72 | 65 70 6f 73 20 77 61 73 |er befor|epos was|
|00000470| 2d 70 61 67 65 2d 73 74 | 61 72 74 20 66 6c 61 67 |-page-st|art flag|
|00000480| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 31 | backwar|d-char 1|
|00000490| 20 31 30 20 61 72 67 20 | 61 75 74 6f 2d 66 69 6c | 10 arg |auto-fil|
|000004a0| 6c 2d 66 75 6e 63 74 69 | 6f 6e 20 6c 61 73 74 2d |l-functi|on last-|
|000004b0| 63 6f 6d 6d 61 6e 64 2d | 63 68 61 72 20 28 28 62 |command-|char ((b|
|000004c0| 79 74 65 2d 63 6f 64 65 | 20 22 08 83 07 00 c1 75 |yte-code| ".....u|
|000004d0| 88 c1 87 22 20 5b 66 6c | 61 67 20 31 5d 20 31 29 |..." [fl|ag 1] 1)|
|000004e0| 29 20 73 65 6c 66 2d 69 | 6e 73 65 72 74 2d 63 6f |) self-i|nsert-co|
|000004f0| 6d 6d 61 6e 64 20 70 72 | 65 66 69 78 2d 6e 75 6d |mmand pr|efix-num|
|00000500| 65 72 69 63 2d 76 61 6c | 75 65 20 75 73 65 2d 68 |eric-val|ue use-h|
|00000510| 61 72 64 2d 6e 65 77 6c | 69 6e 65 73 20 66 72 6f |ard-newl|ines fro|
|00000520| 6d 20 67 65 74 2d 74 65 | 78 74 2d 70 72 6f 70 65 |m get-te|xt-prope|
|00000530| 72 74 79 20 72 65 61 72 | 2d 6e 6f 6e 73 74 69 63 |rty rear|-nonstic|
|00000540| 6b 79 20 73 74 69 63 6b | 79 20 70 75 74 2d 74 65 |ky stick|y put-te|
|00000550| 78 74 2d 70 72 6f 70 65 | 72 74 79 20 68 61 72 64 |xt-prope|rty hard|
|00000560| 20 74 20 30 20 22 5b 20 | 09 5d 24 22 20 63 75 72 | t 0 "[ |.]$" cur|
|00000570| 72 65 6e 74 2d 6c 65 66 | 74 2d 6d 61 72 67 69 6e |rent-lef|t-margin|
|00000580| 20 6e 69 6c 20 6d 6f 76 | 65 2d 74 6f 2d 6c 65 66 | nil mov|e-to-lef|
|00000590| 74 2d 6d 61 72 67 69 6e | 5d 20 37 20 28 23 24 20 |t-margin|] 7 (#$ |
|000005a0| 2e 20 34 37 32 29 20 22 | 2a 50 22 5d 29 0a 23 40 |. 472) "|*P"]).#@|
|000005b0| 31 38 37 20 49 6e 73 65 | 72 74 20 61 20 6e 65 77 |187 Inse|rt a new|
|000005c0| 6c 69 6e 65 20 61 6e 64 | 20 6c 65 61 76 65 20 70 |line and| leave p|
|000005d0| 6f 69 6e 74 20 62 65 66 | 6f 72 65 20 69 74 2e 0a |oint bef|ore it..|
|000005e0| 49 66 20 74 68 65 72 65 | 20 69 73 20 61 20 66 69 |If there| is a fi|
|000005f0| 6c 6c 20 70 72 65 66 69 | 78 20 61 6e 64 2f 6f 72 |ll prefi|x and/or|
|00000600| 20 61 20 6c 65 66 74 2d | 6d 61 72 67 69 6e 2c 20 | a left-|margin, |
|00000610| 69 6e 73 65 72 74 20 74 | 68 65 6d 20 6f 6e 20 74 |insert t|hem on t|
|00000620| 68 65 20 6e 65 77 20 6c | 69 6e 65 0a 69 66 20 74 |he new l|ine.if t|
|00000630| 68 65 20 6c 69 6e 65 20 | 77 6f 75 6c 64 20 68 61 |he line |would ha|
|00000640| 76 65 20 62 65 65 6e 20 | 62 6c 61 6e 6b 2e 0a 57 |ve been |blank..W|
|00000650| 69 74 68 20 61 72 67 20 | 4e 2c 20 69 6e 73 65 72 |ith arg |N, inser|
|00000660| 74 20 4e 20 6e 65 77 6c | 69 6e 65 73 2e 1f 0a 28 |t N newl|ines...(|
|00000670| 64 65 66 61 6c 69 61 73 | 20 27 6f 70 65 6e 2d 6c |defalias| 'open-l|
|00000680| 69 6e 65 20 23 5b 28 61 | 72 67 29 20 22 08 85 05 |ine #[(a|rg) "...|
|00000690| 00 6e 19 6e 85 0e 00 c2 | 20 c3 56 1c 60 1d c6 0e |.n.n....| .V.`...|
|000006a0| 07 21 88 0d 62 88 0e 07 | c3 56 83 40 00 6e 83 34 |.!..b...|.V.@.n.4|
|000006b0| 00 5c 66 83 2c 00 c2 20 | 6a 88 09 83 34 00 c8 08 |.\f.,.. |j...4...|
|000006c0| 21 88 c9 79 88 0e 07 53 | 89 16 07 82 1b 00 0d 62 |!..y...S|.......b|
|000006d0| 88 ca 7f 2b 87 22 20 5b | 66 69 6c 6c 2d 70 72 65 |...+." [|fill-pre|
|000006e0| 66 69 78 20 64 6f 2d 66 | 69 6c 6c 2d 70 72 65 66 |fix do-f|ill-pref|
|000006f0| 69 78 20 63 75 72 72 65 | 6e 74 2d 6c 65 66 74 2d |ix curre|nt-left-|
|00000700| 6d 61 72 67 69 6e 20 30 | 20 64 6f 2d 6c 65 66 74 |margin 0| do-left|
|00000710| 2d 6d 61 72 67 69 6e 20 | 6c 6f 63 20 6e 65 77 6c |-margin |loc newl|
|00000720| 69 6e 65 20 61 72 67 20 | 69 6e 73 65 72 74 2d 61 |ine arg |insert-a|
|00000730| 6e 64 2d 69 6e 68 65 72 | 69 74 20 31 20 6e 69 6c |nd-inher|it 1 nil|
|00000740| 5d 20 33 20 28 23 24 20 | 2e 20 31 34 36 30 29 20 |] 3 (#$ |. 1460) |
|00000750| 22 2a 70 22 5d 29 0a 23 | 40 36 36 20 53 70 6c 69 |"*p"]).#|@66 Spli|
|00000760| 74 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 2c 20 |t curren|t line, |
|00000770| 6d 6f 76 69 6e 67 20 70 | 6f 72 74 69 6f 6e 20 62 |moving p|ortion b|
|00000780| 65 79 6f 6e 64 20 70 6f | 69 6e 74 20 76 65 72 74 |eyond po|int vert|
|00000790| 69 63 61 6c 6c 79 20 64 | 6f 77 6e 2e 1f 0a 28 64 |ically d|own...(d|
|000007a0| 65 66 61 6c 69 61 73 20 | 27 73 70 6c 69 74 2d 6c |efalias |'split-l|
|000007b0| 69 6e 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 77 88 69 |ine #[ni|l "..w.i|
|000007c0| 60 1a 1b c4 c5 21 88 c6 | 0b c7 5c 22 88 5c 6e 62 |`....!..|..\".\nb|
|000007d0| 2a 87 22 20 5b 22 20 09 | 22 20 6e 69 6c 20 70 6f |*." [" .|" nil po|
|000007e0| 73 20 63 6f 6c 20 6e 65 | 77 6c 69 6e 65 20 31 20 |s col ne|wline 1 |
|000007f0| 69 6e 64 65 6e 74 2d 74 | 6f 20 30 5d 20 33 20 28 |indent-t|o 0] 3 (|
|00000800| 23 24 20 2e 20 31 38 38 | 34 29 20 22 2a 22 5d 29 |#$ . 188|4) "*"])|
|00000810| 0a 23 40 35 39 30 20 52 | 65 61 64 20 6e 65 78 74 |.#@590 R|ead next|
|00000820| 20 69 6e 70 75 74 20 63 | 68 61 72 61 63 74 65 72 | input c|haracter|
|00000830| 20 61 6e 64 20 69 6e 73 | 65 72 74 20 69 74 2e 0a | and ins|ert it..|
|00000840| 54 68 69 73 20 69 73 20 | 75 73 65 66 75 6c 20 66 |This is |useful f|
|00000850| 6f 72 20 69 6e 73 65 72 | 74 69 6e 67 20 63 6f 6e |or inser|ting con|
|00000860| 74 72 6f 6c 20 63 68 61 | 72 61 63 74 65 72 73 2e |trol cha|racters.|
|00000870| 0a 59 6f 75 20 6d 61 79 | 20 61 6c 73 6f 20 74 79 |.You may| also ty|
|00000880| 70 65 20 75 70 20 74 6f | 20 33 20 6f 63 74 61 6c |pe up to| 3 octal|
|00000890| 20 64 69 67 69 74 73 2c | 20 74 6f 20 69 6e 73 65 | digits,| to inse|
|000008a0| 72 74 20 61 20 63 68 61 | 72 61 63 74 65 72 20 77 |rt a cha|racter w|
|000008b0| 69 74 68 20 74 68 61 74 | 20 63 6f 64 65 2e 0a 0a |ith that| code...|
|000008c0| 49 6e 20 6f 76 65 72 77 | 72 69 74 65 20 6d 6f 64 |In overw|rite mod|
|000008d0| 65 2c 20 74 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |e, this |function|
|000008e0| 20 69 6e 73 65 72 74 73 | 20 74 68 65 20 63 68 61 | inserts| the cha|
|000008f0| 72 61 63 74 65 72 20 61 | 6e 79 77 61 79 2c 20 61 |racter a|nyway, a|
|00000900| 6e 64 0a 64 6f 65 73 20 | 6e 6f 74 20 68 61 6e 64 |nd.does |not hand|
|00000910| 6c 65 20 6f 63 74 61 6c | 20 64 69 67 69 74 73 20 |le octal| digits |
|00000920| 73 70 65 63 69 61 6c 6c | 79 2e 20 20 54 68 69 73 |speciall|y.  This|
|00000930| 20 6d 65 61 6e 73 20 74 | 68 61 74 20 69 66 20 79 | means t|hat if y|
|00000940| 6f 75 20 75 73 65 0a 6f | 76 65 72 77 72 69 74 65 |ou use.o|verwrite|
|00000950| 20 61 73 20 79 6f 75 72 | 20 6e 6f 72 6d 61 6c 20 | as your| normal |
|00000960| 65 64 69 74 69 6e 67 20 | 6d 6f 64 65 2c 20 79 6f |editing |mode, yo|
|00000970| 75 20 63 61 6e 20 75 73 | 65 20 74 68 69 73 20 66 |u can us|e this f|
|00000980| 75 6e 63 74 69 6f 6e 20 | 74 6f 0a 69 6e 73 65 72 |unction |to.inser|
|00000990| 74 20 63 68 61 72 61 63 | 74 65 72 73 20 77 68 65 |t charac|ters whe|
|000009a0| 6e 20 6e 65 63 65 73 73 | 61 72 79 2e 0a 0a 49 6e |n necess|ary...In|
|000009b0| 20 62 69 6e 61 72 79 20 | 6f 76 65 72 77 72 69 74 | binary |overwrit|
|000009c0| 65 20 6d 6f 64 65 2c 20 | 74 68 69 73 20 66 75 6e |e mode, |this fun|
|000009d0| 63 74 69 6f 6e 20 64 6f | 65 73 20 6f 76 65 72 77 |ction do|es overw|
|000009e0| 72 69 74 65 2c 20 61 6e | 64 20 6f 63 74 61 6c 0a |rite, an|d octal.|
|000009f0| 64 69 67 69 74 73 20 61 | 72 65 20 69 6e 74 65 72 |digits a|re inter|
|00000a00| 70 72 65 74 65 64 20 61 | 73 20 61 20 63 68 61 72 |preted a|s a char|
|00000a10| 61 63 74 65 72 20 63 6f | 64 65 2e 20 20 54 68 69 |acter co|de.  Thi|
|00000a20| 73 20 69 73 20 73 75 70 | 70 6f 73 65 64 20 74 6f |s is sup|posed to|
|00000a30| 20 6d 61 6b 65 0a 74 68 | 69 73 20 66 75 6e 63 74 | make.th|is funct|
|00000a40| 69 6f 6e 20 75 73 65 66 | 75 6c 20 69 6e 20 65 64 |ion usef|ul in ed|
|00000a50| 69 74 69 6e 67 20 62 69 | 6e 61 72 79 20 66 69 6c |iting bi|nary fil|
|00000a60| 65 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |es...(de|falias '|
|00000a70| 71 75 6f 74 65 64 2d 69 | 6e 73 65 72 74 20 23 5b |quoted-i|nsert #[|
|00000a80| 28 61 72 67 29 20 22 08 | 83 5c 6e 00 08 c1 3d 83 |(arg) ".|.\n...=.|
|00000a90| 0f 00 c2 20 82 11 00 c3 | 20 1c 0d c6 56 83 5c 22 |... ....| ...V.\"|
|00000aa0| 00 08 c1 3d 83 5c 22 00 | c7 0d 21 88 0d c6 56 85 |...=.\".|..!...V.|
|00000ab0| 33 00 c8 5c 66 21 88 0d | 53 89 15 82 23 00 29 87 |3..\f!..|S...#.).|
|00000ac0| 22 20 5b 6f 76 65 72 77 | 72 69 74 65 2d 6d 6f 64 |" [overw|rite-mod|
|00000ad0| 65 20 6f 76 65 72 77 72 | 69 74 65 2d 6d 6f 64 65 |e overwr|ite-mode|
|00000ae0| 2d 62 69 6e 61 72 79 20 | 72 65 61 64 2d 71 75 6f |-binary |read-quo|
|00000af0| 74 65 64 2d 63 68 61 72 | 20 72 65 61 64 2d 63 68 |ted-char| read-ch|
|00000b00| 61 72 20 63 68 61 72 20 | 61 72 67 20 30 20 64 65 |ar char |arg 0 de|
|00000b10| 6c 65 74 65 2d 63 68 61 | 72 20 69 6e 73 65 72 74 |lete-cha|r insert|
|00000b20| 2d 61 6e 64 2d 69 6e 68 | 65 72 69 74 5d 20 33 20 |-and-inh|erit] 3 |
|00000b30| 28 23 24 20 2e 20 32 30 | 37 31 29 20 22 2a 70 22 |(#$ . 20|71) "*p"|
|00000b40| 5d 29 0a 23 40 31 37 38 | 20 4a 6f 69 6e 20 74 68 |]).#@178| Join th|
|00000b50| 69 73 20 6c 69 6e 65 20 | 74 6f 20 70 72 65 76 69 |is line |to previ|
|00000b60| 6f 75 73 20 61 6e 64 20 | 66 69 78 20 75 70 20 77 |ous and |fix up w|
|00000b70| 68 69 74 65 73 70 61 63 | 65 20 61 74 20 6a 6f 69 |hitespac|e at joi|
|00000b80| 6e 2e 0a 49 66 20 74 68 | 65 72 65 20 69 73 20 61 |n..If th|ere is a|
|00000b90| 20 66 69 6c 6c 20 70 72 | 65 66 69 78 2c 20 64 65 | fill pr|efix, de|
|00000ba0| 6c 65 74 65 20 69 74 20 | 66 72 6f 6d 20 74 68 65 |lete it |from the|
|00000bb0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00000bc0| 69 73 20 6c 69 6e 65 2e | 0a 57 69 74 68 20 61 72 |is line.|.With ar|
|00000bd0| 67 75 6d 65 6e 74 2c 20 | 6a 6f 69 6e 20 74 68 69 |gument, |join thi|
|00000be0| 73 20 6c 69 6e 65 20 74 | 6f 20 66 6f 6c 6c 6f 77 |s line t|o follow|
|00000bf0| 69 6e 67 20 6c 69 6e 65 | 2e 1f 0a 28 64 65 66 61 |ing line|...(defa|
|00000c00| 6c 69 61 73 20 27 64 65 | 6c 65 74 65 2d 69 6e 64 |lias 'de|lete-ind|
|00000c10| 65 6e 74 61 74 69 6f 6e | 20 23 5b 28 26 6f 70 74 |entation| #[(&opt|
|00000c20| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 c0 79 88 09 |ional ar|g) ".y..|
|00000c30| 83 5c 6e 00 c2 79 88 68 | c3 3d 85 36 00 60 60 53 |.\n..y.h|.=.6.``S|
|00000c40| 7c 88 5c 66 83 34 00 60 | 5c 66 47 5c 5c 64 58 83 ||.\f.4.`|\fG\\dX.|
|00000c50| 34 00 5c 66 60 60 5c 66 | 47 5c 5c 7b 98 83 34 00 |4.\f``\f|G\\{..4.|
|00000c60| 60 60 5c 66 47 5c 5c 7c | 88 c5 20 87 22 20 5b 30 |``\fG\\||.. ." [0|
|00000c70| 20 61 72 67 20 31 20 31 | 30 20 66 69 6c 6c 2d 70 | arg 1 1|0 fill-p|
|00000c80| 72 65 66 69 78 20 66 69 | 78 75 70 2d 77 68 69 74 |refix fi|xup-whit|
|00000c90| 65 73 70 61 63 65 5d 20 | 34 20 28 23 24 20 2e 20 |espace] |4 (#$ . |
|00000ca0| 32 38 38 39 29 20 22 2a | 50 22 5d 29 0a 23 40 31 |2889) "*|P"]).#@1|
|00000cb0| 30 30 20 46 69 78 75 70 | 20 77 68 69 74 65 20 73 |00 Fixup| white s|
|00000cc0| 70 61 63 65 20 62 65 74 | 77 65 65 6e 20 6f 62 6a |pace bet|ween obj|
|00000cd0| 65 63 74 73 20 61 72 6f | 75 6e 64 20 70 6f 69 6e |ects aro|und poin|
|00000ce0| 74 2e 0a 4c 65 61 76 65 | 20 6f 6e 65 20 73 70 61 |t..Leave| one spa|
|00000cf0| 63 65 20 6f 72 20 6e 6f | 6e 65 2c 20 61 63 63 6f |ce or no|ne, acco|
|00000d00| 72 64 69 6e 67 20 74 6f | 20 74 68 65 20 63 6f 6e |rding to| the con|
|00000d10| 74 65 78 74 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |text...(|defalias|
|00000d20| 20 27 66 69 78 75 70 2d | 77 68 69 74 65 73 70 61 | 'fixup-|whitespa|
|00000d30| 63 65 20 23 5b 6e 69 6c | 20 22 8a c0 20 88 c1 c2 |ce #[nil| ".. ...|
|00000d40| 21 86 12 00 8a c3 75 88 | c1 c4 21 29 3f 85 18 00 |!.....u.|..!)?...|
|00000d50| c5 63 29 87 22 20 5b 64 | 65 6c 65 74 65 2d 68 6f |.c)." [d|elete-ho|
|00000d60| 72 69 7a 6f 6e 74 61 6c | 2d 73 70 61 63 65 20 6c |rizontal|-space l|
|00000d70| 6f 6f 6b 69 6e 67 2d 61 | 74 20 22 5e 5c 5c 7c 5c |ooking-a|t "^\\|\|
|00000d80| 5c 73 29 22 20 2d 31 20 | 22 24 5c 5c 7c 5c 5c 73 |\s)" -1 |"$\\|\\s|
|00000d90| 28 5c 5c 7c 5c 5c 73 27 | 22 20 33 32 5d 20 32 20 |(\\|\\s'|" 32] 2 |
|00000da0| 28 23 24 20 2e 20 33 32 | 35 31 29 20 22 2a 22 5d |(#$ . 32|51) "*"]|
|00000db0| 29 0a 23 40 34 32 20 44 | 65 6c 65 74 65 20 61 6c |).#@42 D|elete al|
|00000dc0| 6c 20 73 70 61 63 65 73 | 20 61 6e 64 20 74 61 62 |l spaces| and tab|
|00000dd0| 73 20 61 72 6f 75 6e 64 | 20 70 6f 69 6e 74 2e 1f |s around| point..|
|00000de0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 6c 65 |.(defali|as 'dele|
|00000df0| 74 65 2d 68 6f 72 69 7a | 6f 6e 74 61 6c 2d 73 70 |te-horiz|ontal-sp|
|00000e00| 61 63 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 78 88 60 |ace #[ni|l "..x.`|
|00000e10| c0 c1 77 88 60 7c 87 22 | 20 5b 22 20 09 22 20 6e |..w.`|."| [" ." n|
|00000e20| 69 6c 5d 20 33 20 28 23 | 24 20 2e 20 33 35 31 31 |il] 3 (#|$ . 3511|
|00000e30| 29 20 22 2a 22 5d 29 0a | 23 40 36 31 20 44 65 6c |) "*"]).|#@61 Del|
|00000e40| 65 74 65 20 61 6c 6c 20 | 73 70 61 63 65 73 20 61 |ete all |spaces a|
|00000e50| 6e 64 20 74 61 62 73 20 | 61 72 6f 75 6e 64 20 70 |nd tabs |around p|
|00000e60| 6f 69 6e 74 2c 20 6c 65 | 61 76 69 6e 67 20 6f 6e |oint, le|aving on|
|00000e70| 65 20 73 70 61 63 65 2e | 1f 0a 28 64 65 66 61 6c |e space.|..(defal|
|00000e80| 69 61 73 20 27 6a 75 73 | 74 2d 6f 6e 65 2d 73 70 |ias 'jus|t-one-sp|
|00000e90| 61 63 65 20 23 5b 6e 69 | 6c 20 22 c0 c1 78 88 67 |ace #[ni|l "..x.g|
|00000ea0| c2 55 83 10 00 c3 75 88 | 82 13 00 c2 63 88 60 c0 |.U....u.|....c.`.|
|00000eb0| c1 77 88 60 7c 87 22 20 | 5b 22 20 09 22 20 6e 69 |.w.`|." |[" ." ni|
|00000ec0| 6c 20 33 32 20 31 5d 20 | 33 20 28 23 24 20 2e 20 |l 32 1] |3 (#$ . |
|00000ed0| 33 36 34 35 29 20 22 2a | 22 5d 29 0a 23 40 31 37 |3645) "*|"]).#@17|
|00000ee0| 35 20 4f 6e 20 62 6c 61 | 6e 6b 20 6c 69 6e 65 2c |5 On bla|nk line,|
|00000ef0| 20 64 65 6c 65 74 65 20 | 61 6c 6c 20 73 75 72 72 | delete |all surr|
|00000f00| 6f 75 6e 64 69 6e 67 20 | 62 6c 61 6e 6b 20 6c 69 |ounding |blank li|
|00000f10| 6e 65 73 2c 20 6c 65 61 | 76 69 6e 67 20 6a 75 73 |nes, lea|ving jus|
|00000f20| 74 20 6f 6e 65 2e 0a 4f | 6e 20 69 73 6f 6c 61 74 |t one..O|n isolat|
|00000f30| 65 64 20 62 6c 61 6e 6b | 20 6c 69 6e 65 2c 20 64 |ed blank| line, d|
|00000f40| 65 6c 65 74 65 20 74 68 | 61 74 20 6f 6e 65 2e 0a |elete th|at one..|
|00000f50| 4f 6e 20 6e 6f 6e 62 6c | 61 6e 6b 20 6c 69 6e 65 |On nonbl|ank line|
|00000f60| 2c 20 64 65 6c 65 74 65 | 20 61 6e 79 20 69 6d 6d |, delete| any imm|
|00000f70| 65 64 69 61 74 65 6c 79 | 20 66 6f 6c 6c 6f 77 69 |ediately| followi|
|00000f80| 6e 67 20 62 6c 61 6e 6b | 20 6c 69 6e 65 73 2e 1f |ng blank| lines..|
|00000f90| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 65 6c 65 |.(defali|as 'dele|
|00000fa0| 74 65 2d 62 6c 61 6e 6b | 2d 6c 69 6e 65 73 20 23 |te-blank|-lines #|
|00000fb0| 5b 6e 69 6c 20 22 c0 89 | 19 1a 8a c3 79 88 c4 c5 |[nil "..|....y...|
|00000fc0| 21 89 12 85 5c 22 00 c4 | c6 21 3f 85 5c 22 00 6f |!...\"..|.!?.\".o|
|00000fd0| 86 5c 22 00 c7 79 88 c4 | c5 21 3f 11 29 5c 6e 83 |.\"..y..|.!?.)\n.|
|00000fe0| 45 00 c3 79 88 09 83 32 | 00 c8 79 88 60 c9 ca c0 |E..y...2|..y.`...|
|00000ff0| cb 23 83 42 00 c8 79 88 | 60 82 43 00 65 7c 88 5c |.#.B..y.|`.C.e|.\|
|00001000| 6e 83 4d 00 09 84 68 00 | 8a c0 7f 88 c8 79 88 60 |n.M...h.|.....y.`|
|00001010| cc ca c0 cb 23 83 64 00 | c3 79 88 60 82 65 00 64 |....#.d.|.y.`.e.d|
|00001020| 7c 88 29 c4 cd 21 85 71 | 00 60 64 7c 2a 87 22 20 ||.)..!.q|.`d|*." |
|00001030| 5b 6e 69 6c 20 73 69 6e | 67 6c 65 62 6c 61 6e 6b |[nil sin|gleblank|
|00001040| 20 74 68 69 73 62 6c 61 | 6e 6b 20 30 20 6c 6f 6f | thisbla|nk 0 loo|
|00001050| 6b 69 6e 67 2d 61 74 20 | 22 5b 20 09 5d 2a 24 22 |king-at |"[ .]*$"|
|00001060| 20 22 5b 20 09 5d 2a 5c | 6e 5b 20 09 5d 2a 24 22 | "[ .]*\|n[ .]*$"|
|00001070| 20 2d 31 20 31 20 72 65 | 2d 73 65 61 72 63 68 2d | -1 1 re|-search-|
|00001080| 62 61 63 6b 77 61 72 64 | 20 22 5b 5e 20 09 5c 6e |backward| "[^ .\n|
|00001090| 5d 22 20 74 20 72 65 2d | 73 65 61 72 63 68 2d 66 |]" t re-|search-f|
|000010a0| 6f 72 77 61 72 64 20 22 | 5e 5b 20 09 5d 2a 5c 6e |orward "|^[ .]*\n|
|000010b0| 5c 5c 27 22 5d 20 36 20 | 28 23 24 20 2e 20 33 38 |\\'"] 6 |(#$ . 38|
|000010c0| 31 30 29 20 22 2a 22 5d | 29 0a 23 40 36 34 20 4d |10) "*"]|).#@64 M|
|000010d0| 6f 76 65 20 70 6f 69 6e | 74 20 74 6f 20 74 68 65 |ove poin|t to the|
|000010e0| 20 66 69 72 73 74 20 6e | 6f 6e 2d 77 68 69 74 65 | first n|on-white|
|000010f0| 73 70 61 63 65 20 63 68 | 61 72 61 63 74 65 72 20 |space ch|aracter |
|00001100| 6f 6e 20 74 68 69 73 20 | 6c 69 6e 65 2e 1f 0a 28 |on this |line...(|
|00001110| 64 65 66 61 6c 69 61 73 | 20 27 62 61 63 6b 2d 74 |defalias| 'back-t|
|00001120| 6f 2d 69 6e 64 65 6e 74 | 61 74 69 6f 6e 20 23 5b |o-indent|ation #[|
|00001130| 6e 69 6c 20 22 c0 79 88 | c1 c2 77 87 22 20 5b 30 |nil ".y.|..w." [0|
|00001140| 20 22 20 09 22 20 6e 69 | 6c 5d 20 32 20 28 23 24 | " ." ni|l] 2 (#$|
|00001150| 20 2e 20 34 33 30 33 29 | 20 6e 69 6c 5d 29 0a 23 | . 4303)| nil]).#|
|00001160| 40 33 30 34 20 49 6e 73 | 65 72 74 20 61 20 6e 65 |@304 Ins|ert a ne|
|00001170| 77 6c 69 6e 65 2c 20 74 | 68 65 6e 20 69 6e 64 65 |wline, t|hen inde|
|00001180| 6e 74 20 61 63 63 6f 72 | 64 69 6e 67 20 74 6f 20 |nt accor|ding to |
|00001190| 6d 61 6a 6f 72 20 6d 6f | 64 65 2e 0a 49 6e 64 65 |major mo|de..Inde|
|000011a0| 6e 74 61 74 69 6f 6e 20 | 69 73 20 64 6f 6e 65 20 |ntation |is done |
|000011b0| 75 73 69 6e 67 20 74 68 | 65 20 76 61 6c 75 65 20 |using th|e value |
|000011c0| 6f 66 20 60 69 6e 64 65 | 6e 74 2d 6c 69 6e 65 2d |of `inde|nt-line-|
|000011d0| 66 75 6e 63 74 69 6f 6e | 27 2e 0a 49 6e 20 70 72 |function|'..In pr|
|000011e0| 6f 67 72 61 6d 6d 69 6e | 67 20 6c 61 6e 67 75 61 |ogrammin|g langua|
|000011f0| 67 65 20 6d 6f 64 65 73 | 2c 20 74 68 69 73 20 69 |ge modes|, this i|
|00001200| 73 20 74 68 65 20 73 61 | 6d 65 20 61 73 20 54 41 |s the sa|me as TA|
|00001210| 42 2e 0a 49 6e 20 73 6f | 6d 65 20 74 65 78 74 20 |B..In so|me text |
|00001220| 6d 6f 64 65 73 2c 20 77 | 68 65 72 65 20 54 41 42 |modes, w|here TAB|
|00001230| 20 69 6e 73 65 72 74 73 | 20 61 20 74 61 62 2c 20 | inserts| a tab, |
|00001240| 74 68 69 73 20 63 6f 6d | 6d 61 6e 64 20 69 6e 64 |this com|mand ind|
|00001250| 65 6e 74 73 20 74 6f 20 | 74 68 65 0a 63 6f 6c 75 |ents to |the.colu|
|00001260| 6d 6e 20 73 70 65 63 69 | 66 69 65 64 20 62 79 20 |mn speci|fied by |
|00001270| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 20 60 63 75 |the func|tion `cu|
|00001280| 72 72 65 6e 74 2d 6c 65 | 66 74 2d 6d 61 72 67 69 |rrent-le|ft-margi|
|00001290| 6e 27 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |n'...(de|falias '|
|000012a0| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|000012b0| 6e 74 20 23 5b 6e 69 6c | 20 22 60 c0 c1 78 88 60 |nt #[nil| "`..x.`|
|000012c0| 7c 88 c2 20 88 c3 20 87 | 22 20 5b 22 20 09 22 20 ||.. .. .|" [" ." |
|000012d0| 6e 69 6c 20 6e 65 77 6c | 69 6e 65 20 69 6e 64 65 |nil newl|ine inde|
|000012e0| 6e 74 2d 61 63 63 6f 72 | 64 69 6e 67 2d 74 6f 2d |nt-accor|ding-to-|
|000012f0| 6d 6f 64 65 5d 20 33 20 | 28 23 24 20 2e 20 34 34 |mode] 3 |(#$ . 44|
|00001300| 35 33 29 20 22 2a 22 5d | 29 0a 23 40 33 37 39 20 |53) "*"]|).#@379 |
|00001310| 52 65 69 6e 64 65 6e 74 | 20 63 75 72 72 65 6e 74 |Reindent| current|
|00001320| 20 6c 69 6e 65 2c 20 69 | 6e 73 65 72 74 20 6e 65 | line, i|nsert ne|
|00001330| 77 6c 69 6e 65 2c 20 74 | 68 65 6e 20 69 6e 64 65 |wline, t|hen inde|
|00001340| 6e 74 20 74 68 65 20 6e | 65 77 20 6c 69 6e 65 2e |nt the n|ew line.|
|00001350| 0a 49 6e 64 65 6e 74 61 | 74 69 6f 6e 20 6f 66 20 |.Indenta|tion of |
|00001360| 62 6f 74 68 20 6c 69 6e | 65 73 20 69 73 20 64 6f |both lin|es is do|
|00001370| 6e 65 20 61 63 63 6f 72 | 64 69 6e 67 20 74 6f 20 |ne accor|ding to |
|00001380| 74 68 65 20 63 75 72 72 | 65 6e 74 20 6d 61 6a 6f |the curr|ent majo|
|00001390| 72 20 6d 6f 64 65 2c 0a | 77 68 69 63 68 20 6d 65 |r mode,.|which me|
|000013a0| 61 6e 73 20 63 61 6c 6c | 69 6e 67 20 74 68 65 20 |ans call|ing the |
|000013b0| 63 75 72 72 65 6e 74 20 | 76 61 6c 75 65 20 6f 66 |current |value of|
|000013c0| 20 60 69 6e 64 65 6e 74 | 2d 6c 69 6e 65 2d 66 75 | `indent|-line-fu|
|000013d0| 6e 63 74 69 6f 6e 27 2e | 0a 49 6e 20 70 72 6f 67 |nction'.|.In prog|
|000013e0| 72 61 6d 6d 69 6e 67 20 | 6c 61 6e 67 75 61 67 65 |ramming |language|
|000013f0| 20 6d 6f 64 65 73 2c 20 | 74 68 69 73 20 69 73 20 | modes, |this is |
|00001400| 74 68 65 20 73 61 6d 65 | 20 61 73 20 54 41 42 2e |the same| as TAB.|
|00001410| 0a 49 6e 20 73 6f 6d 65 | 20 74 65 78 74 20 6d 6f |.In some| text mo|
|00001420| 64 65 73 2c 20 77 68 65 | 72 65 20 54 41 42 20 69 |des, whe|re TAB i|
|00001430| 6e 73 65 72 74 73 20 61 | 20 74 61 62 2c 20 74 68 |nserts a| tab, th|
|00001440| 69 73 20 69 6e 64 65 6e | 74 73 20 74 6f 20 74 68 |is inden|ts to th|
|00001450| 65 0a 63 6f 6c 75 6d 6e | 20 73 70 65 63 69 66 69 |e.column| specifi|
|00001460| 65 64 20 62 79 20 74 68 | 65 20 66 75 6e 63 74 69 |ed by th|e functi|
|00001470| 6f 6e 20 60 63 75 72 72 | 65 6e 74 2d 6c 65 66 74 |on `curr|ent-left|
|00001480| 2d 6d 61 72 67 69 6e 27 | 2e 1f 0a 28 64 65 66 61 |-margin'|...(defa|
|00001490| 6c 69 61 73 20 27 72 65 | 69 6e 64 65 6e 74 2d 74 |lias 're|indent-t|
|000014a0| 68 65 6e 2d 6e 65 77 6c | 69 6e 65 2d 61 6e 64 2d |hen-newl|ine-and-|
|000014b0| 69 6e 64 65 6e 74 20 23 | 5b 6e 69 6c 20 22 8a 60 |indent #|[nil ".`|
|000014c0| c0 c1 78 88 60 7c 88 c2 | 20 88 29 c3 20 88 c2 20 |..x.`|..| .). .. |
|000014d0| 87 22 20 5b 22 20 09 22 | 20 6e 69 6c 20 69 6e 64 |." [" ."| nil ind|
|000014e0| 65 6e 74 2d 61 63 63 6f | 72 64 69 6e 67 2d 74 6f |ent-acco|rding-to|
|000014f0| 2d 6d 6f 64 65 20 6e 65 | 77 6c 69 6e 65 5d 20 33 |-mode ne|wline] 3|
|00001500| 20 28 23 24 20 2e 20 34 | 38 38 30 29 20 22 2a 22 | (#$ . 4|880) "*"|
|00001510| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6b 69 |]).(defa|lias 'ki|
|00001520| 6c 6c 2d 66 6f 72 77 61 | 72 64 2d 63 68 61 72 73 |ll-forwa|rd-chars|
|00001530| 20 23 5b 28 61 72 67 29 | 20 22 08 3c 83 08 00 08 | #[(arg)| ".<....|
|00001540| 40 10 08 c1 3d 83 10 00 | c2 10 c3 60 60 08 5c 5c |@...=...|...``.\\|
|00001550| 5c 22 87 22 20 5b 61 72 | 67 20 2d 20 2d 31 20 6b |\"." [ar|g - -1 k|
|00001560| 69 6c 6c 2d 72 65 67 69 | 6f 6e 5d 20 34 5d 29 0a |ill-regi|on] 4]).|
|00001570| 28 64 65 66 61 6c 69 61 | 73 20 27 6b 69 6c 6c 2d |(defalia|s 'kill-|
|00001580| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 73 20 23 |backward|-chars #|
|00001590| 5b 28 61 72 67 29 20 22 | 08 3c 83 08 00 08 40 10 |[(arg) "|.<....@.|
|000015a0| 08 c1 3d 83 10 00 c2 10 | c3 60 60 08 5a 5c 22 87 |..=.....|.``.Z\".|
|000015b0| 22 20 5b 61 72 67 20 2d | 20 2d 31 20 6b 69 6c 6c |" [arg -| -1 kill|
|000015c0| 2d 72 65 67 69 6f 6e 5d | 20 34 5d 29 0a 23 40 32 |-region]| 4]).#@2|
|000015d0| 31 39 20 44 65 6c 65 74 | 65 20 63 68 61 72 61 63 |19 Delet|e charac|
|000015e0| 74 65 72 73 20 62 61 63 | 6b 77 61 72 64 2c 20 63 |ters bac|kward, c|
|000015f0| 68 61 6e 67 69 6e 67 20 | 74 61 62 73 20 69 6e 74 |hanging |tabs int|
|00001600| 6f 20 73 70 61 63 65 73 | 2e 0a 44 65 6c 65 74 65 |o spaces|..Delete|
|00001610| 20 41 52 47 20 63 68 61 | 72 73 2c 20 61 6e 64 20 | ARG cha|rs, and |
|00001620| 6b 69 6c 6c 20 28 73 61 | 76 65 20 69 6e 20 6b 69 |kill (sa|ve in ki|
|00001630| 6c 6c 20 72 69 6e 67 29 | 20 69 66 20 4b 49 4c 4c |ll ring)| if KILL|
|00001640| 50 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2e 0a 49 6e |P is non|-nil..In|
|00001650| 74 65 72 61 63 74 69 76 | 65 6c 79 2c 20 41 52 47 |teractiv|ely, ARG|
|00001660| 20 69 73 20 74 68 65 20 | 70 72 65 66 69 78 20 61 | is the |prefix a|
|00001670| 72 67 20 28 64 65 66 61 | 75 6c 74 20 31 29 0a 61 |rg (defa|ult 1).a|
|00001680| 6e 64 20 4b 49 4c 4c 50 | 20 69 73 20 74 20 69 66 |nd KILLP| is t if|
|00001690| 20 61 20 70 72 65 66 69 | 78 20 61 72 67 20 77 61 | a prefi|x arg wa|
|000016a0| 73 20 73 70 65 63 69 66 | 69 65 64 2e 1f 0a 28 64 |s specif|ied...(d|
|000016b0| 65 66 61 6c 69 61 73 20 | 27 62 61 63 6b 77 61 72 |efalias |'backwar|
|000016c0| 64 2d 64 65 6c 65 74 65 | 2d 63 68 61 72 2d 75 6e |d-delete|-char-un|
|000016d0| 74 61 62 69 66 79 20 23 | 5b 28 61 72 67 20 26 6f |tabify #|[(arg &o|
|000016e0| 70 74 69 6f 6e 61 6c 20 | 6b 69 6c 6c 70 29 20 22 |ptional |killp) "|
|000016f0| 08 19 8a 09 c2 56 83 30 | 00 6f 84 30 00 68 c3 55 |.....V.0|.o.0.h.U|
|00001700| 83 26 00 69 1c c5 75 88 | 5c 66 69 5a 14 c6 c7 5c |.&.i..u.|\fiZ...\|
|00001710| 66 5c 22 88 c8 c9 21 88 | 29 c5 75 88 09 53 89 11 |f\"...!.|).u..S..|
|00001720| 82 04 00 2a ca 08 0e 0b | 5c 22 87 22 20 5b 61 72 |...*....|\"." [ar|
|00001730| 67 20 63 6f 75 6e 74 20 | 30 20 39 20 63 6f 6c 20 |g count |0 9 col |
|00001740| 2d 31 20 69 6e 73 65 72 | 74 2d 63 68 61 72 20 33 |-1 inser|t-char 3|
|00001750| 32 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 31 20 |2 delete|-char 1 |
|00001760| 64 65 6c 65 74 65 2d 62 | 61 63 6b 77 61 72 64 2d |delete-b|ackward-|
|00001770| 63 68 61 72 20 6b 69 6c | 6c 70 5d 20 34 20 28 23 |char kil|lp] 4 (#|
|00001780| 24 20 2e 20 35 35 38 37 | 29 20 22 2a 70 5c 6e 50 |$ . 5587|) "*p\nP|
|00001790| 22 5d 29 0a 23 40 31 31 | 32 20 4b 69 6c 6c 20 75 |"]).#@11|2 Kill u|
|000017a0| 70 20 74 6f 20 61 6e 64 | 20 69 6e 63 6c 75 64 69 |p to and| includi|
|000017b0| 6e 67 20 41 52 47 27 74 | 68 20 6f 63 63 75 72 72 |ng ARG't|h occurr|
|000017c0| 65 6e 63 65 20 6f 66 20 | 43 48 41 52 2e 0a 47 6f |ence of |CHAR..Go|
|000017d0| 65 73 20 62 61 63 6b 77 | 61 72 64 20 69 66 20 41 |es backw|ard if A|
|000017e0| 52 47 20 69 73 20 6e 65 | 67 61 74 69 76 65 3b 20 |RG is ne|gative; |
|000017f0| 65 72 72 6f 72 20 69 66 | 20 43 48 41 52 20 6e 6f |error if| CHAR no|
|00001800| 74 20 66 6f 75 6e 64 2e | 1f 0a 28 64 65 66 61 6c |t found.|..(defal|
|00001810| 69 61 73 20 27 7a 61 70 | 2d 74 6f 2d 63 68 61 72 |ias 'zap|-to-char|
|00001820| 20 23 5b 28 61 72 67 20 | 63 68 61 72 29 20 22 c0 | #[(arg |char) ".|
|00001830| 60 c1 c2 0b 21 c4 89 0d | 24 88 60 5c 22 87 22 20 |`...!...|$.`\"." |
|00001840| 5b 6b 69 6c 6c 2d 72 65 | 67 69 6f 6e 20 73 65 61 |[kill-re|gion sea|
|00001850| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 63 68 61 72 |rch-forw|ard char|
|00001860| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 63 68 61 72 20 |-to-stri|ng char |
|00001870| 6e 69 6c 20 61 72 67 5d | 20 37 20 28 23 24 20 2e |nil arg]| 7 (#$ .|
|00001880| 20 36 30 34 32 29 20 22 | 70 5c 6e 63 5a 61 70 20 | 6042) "|p\ncZap |
|00001890| 74 6f 20 63 68 61 72 3a | 20 22 5d 29 0a 23 40 33 |to char:| "]).#@3|
|000018a0| 35 30 20 4d 6f 76 65 20 | 70 6f 69 6e 74 20 74 6f |50 Move |point to|
|000018b0| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|000018c0| 66 20 74 68 65 20 62 75 | 66 66 65 72 3b 20 6c 65 |f the bu|ffer; le|
|000018d0| 61 76 65 20 6d 61 72 6b | 20 61 74 20 70 72 65 76 |ave mark| at prev|
|000018e0| 69 6f 75 73 20 70 6f 73 | 69 74 69 6f 6e 2e 0a 57 |ious pos|ition..W|
|000018f0| 69 74 68 20 61 72 67 20 | 4e 2c 20 70 75 74 20 70 |ith arg |N, put p|
|00001900| 6f 69 6e 74 20 4e 2f 31 | 30 20 6f 66 20 74 68 65 |oint N/1|0 of the|
|00001910| 20 77 61 79 20 66 72 6f | 6d 20 74 68 65 20 62 65 | way fro|m the be|
|00001920| 67 69 6e 6e 69 6e 67 2e | 0a 0a 49 66 20 74 68 65 |ginning.|..If the|
|00001930| 20 62 75 66 66 65 72 20 | 69 73 20 6e 61 72 72 6f | buffer |is narro|
|00001940| 77 65 64 2c 20 74 68 69 | 73 20 63 6f 6d 6d 61 6e |wed, thi|s comman|
|00001950| 64 20 75 73 65 73 20 74 | 68 65 20 62 65 67 69 6e |d uses t|he begin|
|00001960| 6e 69 6e 67 20 61 6e 64 | 20 73 69 7a 65 0a 6f 66 |ning and| size.of|
|00001970| 20 74 68 65 20 61 63 63 | 65 73 73 69 62 6c 65 20 | the acc|essible |
|00001980| 70 61 72 74 20 6f 66 20 | 74 68 65 20 62 75 66 66 |part of |the buff|
|00001990| 65 72 2e 0a 0a 44 6f 6e | 27 74 20 75 73 65 20 74 |er...Don|'t use t|
|000019a0| 68 69 73 20 63 6f 6d 6d | 61 6e 64 20 69 6e 20 4c |his comm|and in L|
|000019b0| 69 73 70 20 70 72 6f 67 | 72 61 6d 73 21 0a 28 67 |isp prog|rams!.(g|
|000019c0| 6f 74 6f 2d 63 68 61 72 | 20 28 70 6f 69 6e 74 2d |oto-char| (point-|
|000019d0| 6d 69 6e 29 29 20 69 73 | 20 66 61 73 74 65 72 20 |min)) is| faster |
|000019e0| 61 6e 64 20 61 76 6f 69 | 64 73 20 63 6c 6f 62 62 |and avoi|ds clobb|
|000019f0| 65 72 69 6e 67 20 74 68 | 65 20 6d 61 72 6b 2e 1f |ering th|e mark..|
|00001a00| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 62 65 67 69 |.(defali|as 'begi|
|00001a10| 6e 6e 69 6e 67 2d 6f 66 | 2d 62 75 66 66 65 72 20 |nning-of|-buffer |
|00001a20| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00001a30| 29 20 22 c0 20 88 64 65 | 5a 19 5c 6e 83 29 00 65 |) ". .de|Z.\n.).e|
|00001a40| 09 c3 56 83 1c 00 c4 5c | 6e 21 09 c5 a5 5f 82 25 |..V....\|n!..._.%|
|00001a50| 00 09 c4 5c 6e 21 5f c5 | 5c 5c c5 a5 5c 5c 82 2a |...\n!_.|\\..\\.*|
|00001a60| 00 65 62 88 29 5c 6e 85 | 33 00 c6 79 87 22 20 5b |.eb.)\n.|3..y." [|
|00001a70| 70 75 73 68 2d 6d 61 72 | 6b 20 73 69 7a 65 20 61 |push-mar|k size a|
|00001a80| 72 67 20 31 30 30 30 30 | 20 70 72 65 66 69 78 2d |rg 10000| prefix-|
|00001a90| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 31 30 |numeric-|value 10|
|00001aa0| 20 31 5d 20 34 20 28 23 | 24 20 2e 20 36 33 30 37 | 1] 4 (#|$ . 6307|
|00001ab0| 29 20 22 50 22 5d 29 0a | 23 40 33 33 38 20 4d 6f |) "P"]).|#@338 Mo|
|00001ac0| 76 65 20 70 6f 69 6e 74 | 20 74 6f 20 74 68 65 20 |ve point| to the |
|00001ad0| 65 6e 64 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |end of t|he buffe|
|00001ae0| 72 3b 20 6c 65 61 76 65 | 20 6d 61 72 6b 20 61 74 |r; leave| mark at|
|00001af0| 20 70 72 65 76 69 6f 75 | 73 20 70 6f 73 69 74 69 | previou|s positi|
|00001b00| 6f 6e 2e 0a 57 69 74 68 | 20 61 72 67 20 4e 2c 20 |on..With| arg N, |
|00001b10| 70 75 74 20 70 6f 69 6e | 74 20 4e 2f 31 30 20 6f |put poin|t N/10 o|
|00001b20| 66 20 74 68 65 20 77 61 | 79 20 66 72 6f 6d 20 74 |f the wa|y from t|
|00001b30| 68 65 20 65 6e 64 2e 0a | 0a 49 66 20 74 68 65 20 |he end..|.If the |
|00001b40| 62 75 66 66 65 72 20 69 | 73 20 6e 61 72 72 6f 77 |buffer i|s narrow|
|00001b50| 65 64 2c 20 74 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |ed, this| command|
|00001b60| 20 75 73 65 73 20 74 68 | 65 20 62 65 67 69 6e 6e | uses th|e beginn|
|00001b70| 69 6e 67 20 61 6e 64 20 | 73 69 7a 65 0a 6f 66 20 |ing and |size.of |
|00001b80| 74 68 65 20 61 63 63 65 | 73 73 69 62 6c 65 20 70 |the acce|ssible p|
|00001b90| 61 72 74 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |art of t|he buffe|
|00001ba0| 72 2e 0a 0a 44 6f 6e 27 | 74 20 75 73 65 20 74 68 |r...Don'|t use th|
|00001bb0| 69 73 20 63 6f 6d 6d 61 | 6e 64 20 69 6e 20 4c 69 |is comma|nd in Li|
|00001bc0| 73 70 20 70 72 6f 67 72 | 61 6d 73 21 0a 28 67 6f |sp progr|ams!.(go|
|00001bd0| 74 6f 2d 63 68 61 72 20 | 28 70 6f 69 6e 74 2d 6d |to-char |(point-m|
|00001be0| 61 78 29 29 20 69 73 20 | 66 61 73 74 65 72 20 61 |ax)) is |faster a|
|00001bf0| 6e 64 20 61 76 6f 69 64 | 73 20 63 6c 6f 62 62 65 |nd avoid|s clobbe|
|00001c00| 72 69 6e 67 20 74 68 65 | 20 6d 61 72 6b 2e 1f 0a |ring the| mark...|
|00001c10| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6e 64 2d 6f |(defalia|s 'end-o|
|00001c20| 66 2d 62 75 66 66 65 72 | 20 23 5b 28 26 6f 70 74 |f-buffer| #[(&opt|
|00001c30| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 c0 20 88 64 |ional ar|g) ". .d|
|00001c40| 65 5a 19 5c 6e 83 27 00 | 64 09 c3 56 83 1c 00 c4 |eZ.\n.'.|d..V....|
|00001c50| 5c 6e 21 09 c5 a5 5f 82 | 23 00 09 c4 5c 6e 21 5f |\n!..._.|#...\n!_|
|00001c60| c5 a5 5a 82 28 00 64 62 | 88 29 5c 6e 83 32 00 c6 |..Z.(.db|.)\n.2..|
|00001c70| 79 87 60 1e 07 8a c8 20 | 62 88 c9 ca 20 21 88 60 |y.`.... |b... !.`|
|00001c80| 0e 07 57 2a 85 4e 00 cb | 60 21 88 cc cd 21 87 22 |..W*.N..|`!...!."|
|00001c90| 20 5b 70 75 73 68 2d 6d | 61 72 6b 20 73 69 7a 65 | [push-m|ark size|
|00001ca0| 20 61 72 67 20 31 30 30 | 30 30 20 70 72 65 66 69 | arg 100|00 prefi|
|00001cb0| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|00001cc0| 31 30 20 31 20 6f 6c 64 | 2d 70 6f 69 6e 74 20 77 |10 1 old|-point w|
|00001cd0| 69 6e 64 6f 77 2d 73 74 | 61 72 74 20 76 65 72 74 |indow-st|art vert|
|00001ce0| 69 63 61 6c 2d 6d 6f 74 | 69 6f 6e 20 77 69 6e 64 |ical-mot|ion wind|
|00001cf0| 6f 77 2d 68 65 69 67 68 | 74 20 6f 76 65 72 6c 61 |ow-heigh|t overla|
|00001d00| 79 2d 72 65 63 65 6e 74 | 65 72 20 72 65 63 65 6e |y-recent|er recen|
|00001d10| 74 65 72 20 2d 33 5d 20 | 34 20 28 23 24 20 2e 20 |ter -3] |4 (#$ . |
|00001d20| 36 38 34 36 29 20 22 50 | 22 5d 29 0a 23 40 32 30 |6846) "P|"]).#@20|
|00001d30| 35 20 50 75 74 20 70 6f | 69 6e 74 20 61 74 20 62 |5 Put po|int at b|
|00001d40| 65 67 69 6e 6e 69 6e 67 | 20 61 6e 64 20 6d 61 72 |eginning| and mar|
|00001d50| 6b 20 61 74 20 65 6e 64 | 20 6f 66 20 62 75 66 66 |k at end| of buff|
|00001d60| 65 72 2e 0a 59 6f 75 20 | 70 72 6f 62 61 62 6c 79 |er..You |probably|
|00001d70| 20 73 68 6f 75 6c 64 20 | 6e 6f 74 20 75 73 65 20 | should |not use |
|00001d80| 74 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 69 6e |this fun|ction in|
|00001d90| 20 4c 69 73 70 20 70 72 | 6f 67 72 61 6d 73 3b 0a | Lisp pr|ograms;.|
|00001da0| 69 74 20 69 73 20 75 73 | 75 61 6c 6c 79 20 61 20 |it is us|ually a |
|00001db0| 6d 69 73 74 61 6b 65 20 | 66 6f 72 20 61 20 4c 69 |mistake |for a Li|
|00001dc0| 73 70 20 66 75 6e 63 74 | 69 6f 6e 20 74 6f 20 75 |sp funct|ion to u|
|00001dd0| 73 65 20 61 6e 79 20 73 | 75 62 72 6f 75 74 69 6e |se any s|ubroutin|
|00001de0| 65 0a 74 68 61 74 20 75 | 73 65 73 20 6f 72 20 73 |e.that u|ses or s|
|00001df0| 65 74 73 20 74 68 65 20 | 6d 61 72 6b 2e 1f 0a 28 |ets the |mark...(|
|00001e00| 64 65 66 61 6c 69 61 73 | 20 27 6d 61 72 6b 2d 77 |defalias| 'mark-w|
|00001e10| 68 6f 6c 65 2d 62 75 66 | 66 65 72 20 23 5b 6e 69 |hole-buf|fer #[ni|
|00001e20| 6c 20 22 c0 60 21 88 c0 | 64 c1 c2 23 88 65 62 87 |l ".`!..|d..#.eb.|
|00001e30| 22 20 5b 70 75 73 68 2d | 6d 61 72 6b 20 6e 69 6c |" [push-|mark nil|
|00001e40| 20 74 5d 20 34 20 28 23 | 24 20 2e 20 37 34 37 34 | t] 4 (#|$ . 7474|
|00001e50| 29 20 6e 69 6c 5d 29 0a | 23 40 35 33 20 50 72 69 |) nil]).|#@53 Pri|
|00001e60| 6e 74 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |nt numbe|r of lin|
|00001e70| 65 73 20 61 6e 64 20 63 | 68 61 72 61 63 74 65 72 |es and c|haracter|
|00001e80| 73 20 69 6e 20 74 68 65 | 20 72 65 67 69 6f 6e 2e |s in the| region.|
|00001e90| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 6f 75 |..(defal|ias 'cou|
|00001ea0| 6e 74 2d 6c 69 6e 65 73 | 2d 72 65 67 69 6f 6e 20 |nt-lines|-region |
|00001eb0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 c0 |#[(start| end) ".|
|00001ec0| c1 c2 0b 5c 66 5c 22 5c | 66 0b 5a 23 87 22 20 5b |...\f\"\|f.Z#." [|
|00001ed0| 6d 65 73 73 61 67 65 20 | 22 52 65 67 69 6f 6e 20 |message |"Region |
|00001ee0| 68 61 73 20 25 64 20 6c | 69 6e 65 73 2c 20 25 64 |has %d l|ines, %d|
|00001ef0| 20 63 68 61 72 61 63 74 | 65 72 73 22 20 63 6f 75 | charact|ers" cou|
|00001f00| 6e 74 2d 6c 69 6e 65 73 | 20 73 74 61 72 74 20 65 |nt-lines| start e|
|00001f10| 6e 64 5d 20 35 20 28 23 | 24 20 2e 20 37 37 37 33 |nd] 5 (#|$ . 7773|
|00001f20| 29 20 22 72 22 5d 29 0a | 23 40 37 33 20 50 72 69 |) "r"]).|#@73 Pri|
|00001f30| 6e 74 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 62 |nt the c|urrent b|
|00001f40| 75 66 66 65 72 20 6c 69 | 6e 65 20 6e 75 6d 62 65 |uffer li|ne numbe|
|00001f50| 72 20 61 6e 64 20 6e 61 | 72 72 6f 77 65 64 20 6c |r and na|rrowed l|
|00001f60| 69 6e 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 70 6f |ine numb|er of po|
|00001f70| 69 6e 74 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |int...(d|efalias |
|00001f80| 27 77 68 61 74 2d 6c 69 | 6e 65 20 23 5b 6e 69 6c |'what-li|ne #[nil|
|00001f90| 20 22 60 c0 19 1a 8a 8c | 65 62 88 7e 88 c3 79 88 | "`.....|eb.~..y.|
|00001fa0| 60 11 5c 6e 62 88 c3 79 | 88 09 c4 55 84 2c 00 c5 |`.\nb..y|...U.,..|
|00001fb0| c6 c7 c4 60 5c 22 54 c7 | 09 60 5c 22 54 23 82 34 |...`\"T.|.`\"T#.4|
|00001fc0| 00 c5 c8 c7 c4 60 5c 22 | 54 5c 22 2c 87 22 20 5b |.....`\"|T\",." [|
|00001fd0| 6e 69 6c 20 73 74 61 72 | 74 20 6f 70 6f 69 6e 74 |nil star|t opoint|
|00001fe0| 20 30 20 31 20 6d 65 73 | 73 61 67 65 20 22 6c 69 | 0 1 mes|sage "li|
|00001ff0| 6e 65 20 25 64 20 28 6e | 61 72 72 6f 77 65 64 20 |ne %d (n|arrowed |
|00002000| 6c 69 6e 65 20 25 64 29 | 22 20 63 6f 75 6e 74 2d |line %d)|" count-|
|00002010| 6c 69 6e 65 73 20 22 4c | 69 6e 65 20 25 64 22 5d |lines "L|ine %d"]|
|00002020| 20 36 20 28 23 24 20 2e | 20 37 39 38 31 29 20 6e | 6 (#$ .| 7981) n|
|00002030| 69 6c 5d 29 0a 23 40 32 | 30 34 20 52 65 74 75 72 |il]).#@2|04 Retur|
|00002040| 6e 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |n number| of line|
|00002050| 73 20 62 65 74 77 65 65 | 6e 20 53 54 41 52 54 20 |s betwee|n START |
|00002060| 61 6e 64 20 45 4e 44 2e | 0a 54 68 69 73 20 69 73 |and END.|.This is|
|00002070| 20 75 73 75 61 6c 6c 79 | 20 74 68 65 20 6e 75 6d | usually| the num|
|00002080| 62 65 72 20 6f 66 20 6e | 65 77 6c 69 6e 65 73 20 |ber of n|ewlines |
|00002090| 62 65 74 77 65 65 6e 20 | 74 68 65 6d 2c 0a 62 75 |between |them,.bu|
|000020a0| 74 20 63 61 6e 20 62 65 | 20 6f 6e 65 20 6d 6f 72 |t can be| one mor|
|000020b0| 65 20 69 66 20 53 54 41 | 52 54 20 69 73 20 6e 6f |e if STA|RT is no|
|000020c0| 74 20 65 71 75 61 6c 20 | 74 6f 20 45 4e 44 0a 61 |t equal |to END.a|
|000020d0| 6e 64 20 74 68 65 20 67 | 72 65 61 74 65 72 20 6f |nd the g|reater o|
|000020e0| 66 20 74 68 65 6d 20 69 | 73 20 6e 6f 74 20 61 74 |f them i|s not at|
|000020f0| 20 74 68 65 20 73 74 61 | 72 74 20 6f 66 20 61 20 | the sta|rt of a |
|00002100| 6c 69 6e 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |line...(|defalias|
|00002110| 20 27 63 6f 75 6e 74 2d | 6c 69 6e 65 73 20 23 5b | 'count-|lines #[|
|00002120| 28 73 74 61 72 74 20 65 | 6e 64 29 20 22 8a 8c 08 |(start e|nd) "...|
|00002130| 09 7d 88 65 62 88 5c 6e | c3 3d 83 54 00 c4 20 1d |.}.eb.\n|.=.T.. .|
|00002140| c6 8e c7 1e 08 c9 ca cb | c3 cc 24 83 29 00 0e 08 |........|..$.)...|
|00002150| cc 5c 5c 16 08 82 17 00 | c9 ca cb c3 cd 24 83 3b |.\\.....|.....$.;|
|00002160| 00 0e 08 cd 5c 5c 16 08 | 82 29 00 64 62 88 08 09 |....\\..|.).db...|
|00002170| 55 84 4e 00 6e 84 4e 00 | 0e 08 54 82 50 00 0e 08 |U.N.n.N.|..T.P...|
|00002180| 2b 82 5a 00 ce 20 ce 20 | 79 5a 2a 87 22 20 5b 73 |+.Z.. . |yZ*." [s|
|00002190| 74 61 72 74 20 65 6e 64 | 20 73 65 6c 65 63 74 69 |tart end| selecti|
|000021a0| 76 65 2d 64 69 73 70 6c | 61 79 20 74 20 6d 61 74 |ve-displ|ay t mat|
|000021b0| 63 68 2d 64 61 74 61 20 | 6d 61 74 63 68 2d 64 61 |ch-data |match-da|
|000021c0| 74 61 20 28 28 73 74 6f | 72 65 2d 6d 61 74 63 68 |ta ((sto|re-match|
|000021d0| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|000021e0| 29 29 20 30 20 64 6f 6e | 65 20 72 65 2d 73 65 61 |)) 0 don|e re-sea|
|000021f0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5b 5c 6e |rch-forw|ard "[\n|
|00002200| 0d 5d 22 20 6e 69 6c 20 | 34 30 20 31 20 62 75 66 |.]" nil |40 1 buf|
|00002210| 66 65 72 2d 73 69 7a 65 | 5d 20 35 20 28 23 24 20 |fer-size|] 5 (#$ |
|00002220| 2e 20 38 32 35 31 29 5d | 29 0a 23 40 36 32 20 50 |. 8251)]|).#@62 P|
|00002230| 72 69 6e 74 20 69 6e 66 | 6f 20 6f 6e 20 63 75 72 |rint inf|o on cur|
|00002240| 73 6f 72 20 70 6f 73 69 | 74 69 6f 6e 20 28 6f 6e |sor posi|tion (on|
|00002250| 20 73 63 72 65 65 6e 20 | 61 6e 64 20 77 69 74 68 | screen |and with|
|00002260| 69 6e 20 62 75 66 66 65 | 72 29 2e 1f 0a 28 64 65 |in buffe|r)...(de|
|00002270| 66 61 6c 69 61 73 20 27 | 77 68 61 74 2d 63 75 72 |falias '|what-cur|
|00002280| 73 6f 72 2d 70 6f 73 69 | 74 69 6f 6e 20 23 5b 6e |sor-posi|tion #[n|
|00002290| 69 6c 20 22 67 18 65 19 | 64 1a 60 1b c4 20 89 1d |il "g.e.|d.`.. ..|
|000022a0| c6 56 83 20 00 0d c7 a5 | 0b 53 5c 5c 0d c8 a5 c9 |.V. ....|.S\\....|
|000022b0| 5d a5 82 2c 00 0d ca a5 | 0b 53 c8 5f 5c 5c 0d c9 |]..,....|.S._\\..|
|000022c0| 5d a5 1e 0b cc 20 cd 55 | 83 39 00 ce 82 3e 00 cf |].... .U|.9...>..|
|000022d0| d0 cc 20 5c 22 1e 11 69 | 1e 12 0b 5c 6e 55 83 76 |.. \"..i|...\nU.v|
|000022e0| 00 09 c9 55 83 56 00 5c | 6e 0d 54 55 84 67 00 d3 |...U.V.\|n.TU.g..|
|000022f0| d4 0b 0d 0e 0b 09 5c 6e | 0e 12 0e 11 26 08 82 ac |......\n|....&...|
|00002300| 00 d3 d5 0b 0d 0e 0b 0e | 12 0e 11 26 06 82 ac 00 |........|...&....|
|00002310| 09 c9 55 83 83 00 5c 6e | 0d 54 55 84 9a 00 d3 d6 |..U...\n|.TU.....|
|00002320| d7 08 21 08 89 89 0b 0d | 0e 0b 09 5c 6e 0e 12 0e |..!.....|...\n...|
|00002330| 11 26 5c 66 82 ac 00 d3 | d8 d7 08 21 08 89 89 0b |.&\f....|...!....|
|00002340| 0d 0e 0b 0e 12 0e 11 26 | 5c 6e 2e 08 87 22 20 5b |.......&|\n..." [|
|00002350| 63 68 61 72 20 62 65 67 | 20 65 6e 64 20 70 6f 73 |char beg| end pos|
|00002360| 20 62 75 66 66 65 72 2d | 73 69 7a 65 20 74 6f 74 | buffer-|size tot|
|00002370| 61 6c 20 35 30 30 30 30 | 20 32 30 30 20 31 30 30 |al 50000| 200 100|
|00002380| 20 31 20 32 20 70 65 72 | 63 65 6e 74 20 77 69 6e | 1 2 per|cent win|
|00002390| 64 6f 77 2d 68 73 63 72 | 6f 6c 6c 20 30 20 22 22 |dow-hscr|oll 0 ""|
|000023a0| 20 66 6f 72 6d 61 74 20 | 22 20 48 73 63 72 6f 6c | format |" Hscrol|
|000023b0| 6c 3d 25 64 22 20 68 73 | 63 72 6f 6c 6c 20 63 6f |l=%d" hs|croll co|
|000023c0| 6c 20 6d 65 73 73 61 67 | 65 20 22 70 6f 69 6e 74 |l messag|e "point|
|000023d0| 3d 25 64 20 6f 66 20 25 | 64 28 25 64 25 25 29 20 |=%d of %|d(%d%%) |
|000023e0| 3c 25 64 20 2d 20 25 64 | 3e 20 20 63 6f 6c 75 6d |<%d - %d|>  colum|
|000023f0| 6e 20 25 64 20 25 73 22 | 20 22 70 6f 69 6e 74 3d |n %d %s"| "point=|
|00002400| 25 64 20 6f 66 20 25 64 | 28 25 64 25 25 29 20 20 |%d of %d|(%d%%)  |
|00002410| 63 6f 6c 75 6d 6e 20 25 | 64 20 25 73 22 20 22 43 |column %|d %s" "C|
|00002420| 68 61 72 3a 20 25 73 20 | 28 30 25 6f 2c 20 25 64 |har: %s |(0%o, %d|
|00002430| 2c 20 30 78 25 78 29 20 | 20 70 6f 69 6e 74 3d 25 |, 0x%x) | point=%|
|00002440| 64 20 6f 66 20 25 64 28 | 25 64 25 25 29 20 3c 25 |d of %d(|%d%%) <%|
|00002450| 64 20 2d 20 25 64 3e 20 | 20 63 6f 6c 75 6d 6e 20 |d - %d> | column |
|00002460| 25 64 20 25 73 22 20 73 | 69 6e 67 6c 65 2d 6b 65 |%d %s" s|ingle-ke|
|00002470| 79 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 20 22 43 |y-descri|ption "C|
|00002480| 68 61 72 3a 20 25 73 20 | 28 30 25 6f 2c 20 25 64 |har: %s |(0%o, %d|
|00002490| 2c 20 30 78 25 78 29 20 | 20 70 6f 69 6e 74 3d 25 |, 0x%x) | point=%|
|000024a0| 64 20 6f 66 20 25 64 28 | 25 64 25 25 29 20 20 63 |d of %d(|%d%%)  c|
|000024b0| 6f 6c 75 6d 6e 20 25 64 | 20 25 73 22 5d 20 31 34 |olumn %d| %s"] 14|
|000024c0| 20 28 23 24 20 2e 20 38 | 37 35 31 29 20 6e 69 6c | (#$ . 8|751) nil|
|000024d0| 5d 29 0a 23 40 31 31 35 | 20 4d 61 6a 6f 72 20 6d |]).#@115| Major m|
|000024e0| 6f 64 65 20 6e 6f 74 20 | 73 70 65 63 69 61 6c 69 |ode not |speciali|
|000024f0| 7a 65 64 20 66 6f 72 20 | 61 6e 79 74 68 69 6e 67 |zed for |anything|
|00002500| 20 69 6e 20 70 61 72 74 | 69 63 75 6c 61 72 2e 0a | in part|icular..|
|00002510| 4f 74 68 65 72 20 6d 61 | 6a 6f 72 20 6d 6f 64 65 |Other ma|jor mode|
|00002520| 73 20 61 72 65 20 64 65 | 66 69 6e 65 64 20 62 79 |s are de|fined by|
|00002530| 20 63 6f 6d 70 61 72 69 | 73 6f 6e 20 77 69 74 68 | compari|son with|
|00002540| 20 74 68 69 73 20 6f 6e | 65 2e 1f 0a 28 64 65 66 | this on|e...(def|
|00002550| 61 6c 69 61 73 20 27 66 | 75 6e 64 61 6d 65 6e 74 |alias 'f|undament|
|00002560| 61 6c 2d 6d 6f 64 65 20 | 23 5b 6e 69 6c 20 22 c0 |al-mode |#[nil ".|
|00002570| 20 87 22 20 5b 6b 69 6c | 6c 2d 61 6c 6c 2d 6c 6f | ." [kil|l-all-lo|
|00002580| 63 61 6c 2d 76 61 72 69 | 61 62 6c 65 73 5d 20 31 |cal-vari|ables] 1|
|00002590| 20 28 23 24 20 2e 20 39 | 34 33 33 29 20 6e 69 6c | (#$ . 9|433) nil|
|000025a0| 5d 29 0a 23 40 35 34 20 | 4d 69 6e 69 62 75 66 66 |]).#@54 |Minibuff|
|000025b0| 65 72 20 6b 65 79 6d 61 | 70 20 75 73 65 64 20 66 |er keyma|p used f|
|000025c0| 6f 72 20 72 65 61 64 69 | 6e 67 20 4c 69 73 70 20 |or readi|ng Lisp |
|000025d0| 65 78 70 72 65 73 73 69 | 6f 6e 73 2e 1f 0a 28 64 |expressi|ons...(d|
|000025e0| 65 66 76 61 72 20 72 65 | 61 64 2d 65 78 70 72 65 |efvar re|ad-expre|
|000025f0| 73 73 69 6f 6e 2d 6d 61 | 70 20 28 63 6f 6e 73 20 |ssion-ma|p (cons |
|00002600| 28 71 75 6f 74 65 20 6b | 65 79 6d 61 70 29 20 6d |(quote k|eymap) m|
|00002610| 69 6e 69 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 2d |inibuffe|r-local-|
|00002620| 6d 61 70 29 20 28 23 24 | 20 2e 20 39 36 34 30 29 |map) (#$| . 9640)|
|00002630| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 09 |).(byte-|code "..|
|00002640| c2 c3 23 88 c4 c5 c6 c7 | 23 88 c8 c9 21 84 15 00 |..#.....|#...!...|
|00002650| ca 16 09 c9 0e 0b 42 16 | 0b ca 87 22 20 5b 64 65 |......B.|..." [de|
|00002660| 66 69 6e 65 2d 6b 65 79 | 20 72 65 61 64 2d 65 78 |fine-key| read-ex|
|00002670| 70 72 65 73 73 69 6f 6e | 2d 6d 61 70 20 22 89 22 |pression|-map "."|
|00002680| 20 6c 69 73 70 2d 63 6f | 6d 70 6c 65 74 65 2d 73 | lisp-co|mplete-s|
|00002690| 79 6d 62 6f 6c 20 70 75 | 74 20 65 76 61 6c 2d 65 |ymbol pu|t eval-e|
|000026a0| 78 70 72 65 73 73 69 6f | 6e 20 64 69 73 61 62 6c |xpressio|n disabl|
|000026b0| 65 64 20 74 20 62 6f 75 | 6e 64 70 20 72 65 61 64 |ed t bou|ndp read|
|000026c0| 2d 65 78 70 72 65 73 73 | 69 6f 6e 2d 68 69 73 74 |-express|ion-hist|
|000026d0| 6f 72 79 20 6e 69 6c 20 | 63 75 72 72 65 6e 74 2d |ory nil |current-|
|000026e0| 6c 6f 61 64 2d 6c 69 73 | 74 5d 20 34 29 0a 23 40 |load-lis|t] 4).#@|
|000026f0| 31 31 31 20 45 76 61 6c | 75 61 74 65 20 45 58 50 |111 Eval|uate EXP|
|00002700| 52 45 53 53 49 4f 4e 20 | 61 6e 64 20 70 72 69 6e |RESSION |and prin|
|00002710| 74 20 76 61 6c 75 65 20 | 69 6e 20 6d 69 6e 69 62 |t value |in minib|
|00002720| 75 66 66 65 72 2e 0a 56 | 61 6c 75 65 20 69 73 20 |uffer..V|alue is |
|00002730| 61 6c 73 6f 20 63 6f 6e | 73 65 64 20 6f 6e 20 74 |also con|sed on t|
|00002740| 6f 20 66 72 6f 6e 74 20 | 6f 66 20 74 68 65 20 76 |o front |of the v|
|00002750| 61 72 69 61 62 6c 65 20 | 60 76 61 6c 75 65 73 27 |ariable |`values'|
|00002760| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 76 |...(defa|lias 'ev|
|00002770| 61 6c 2d 65 78 70 72 65 | 73 73 69 6f 6e 20 23 5b |al-expre|ssion #[|
|00002780| 28 65 78 70 72 65 73 73 | 69 6f 6e 29 20 22 c0 09 |(express|ion) "..|
|00002790| 21 5c 6e 42 12 c3 5c 6e | 40 c4 5c 22 87 22 20 5b |!\nB..\n|@.\"." [|
|000027a0| 65 76 61 6c 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |eval exp|ression |
|000027b0| 76 61 6c 75 65 73 20 70 | 72 69 6e 31 20 74 5d 20 |values p|rin1 t] |
|000027c0| 33 20 28 23 24 20 2e 20 | 39 39 37 32 29 20 28 6c |3 (#$ . |9972) (l|
|000027d0| 69 73 74 20 28 72 65 61 | 64 2d 66 72 6f 6d 2d 6d |ist (rea|d-from-m|
|000027e0| 69 6e 69 62 75 66 66 65 | 72 20 22 45 76 61 6c 3a |inibuffe|r "Eval:|
|000027f0| 20 22 20 6e 69 6c 20 72 | 65 61 64 2d 65 78 70 72 | " nil r|ead-expr|
|00002800| 65 73 73 69 6f 6e 2d 6d | 61 70 20 74 20 28 71 75 |ession-m|ap t (qu|
|00002810| 6f 74 65 20 72 65 61 64 | 2d 65 78 70 72 65 73 73 |ote read|-express|
|00002820| 69 6f 6e 2d 68 69 73 74 | 6f 72 79 29 29 29 5d 29 |ion-hist|ory)))])|
|00002830| 0a 23 40 31 37 38 20 50 | 72 6f 6d 70 74 69 6e 67 |.#@178 P|rompting|
|00002840| 20 77 69 74 68 20 50 52 | 4f 4d 50 54 2c 20 6c 65 | with PR|OMPT, le|
|00002850| 74 20 75 73 65 72 20 65 | 64 69 74 20 43 4f 4d 4d |t user e|dit COMM|
|00002860| 41 4e 44 20 61 6e 64 20 | 65 76 61 6c 20 72 65 73 |AND and |eval res|
|00002870| 75 6c 74 2e 0a 43 4f 4d | 4d 41 4e 44 20 69 73 20 |ult..COM|MAND is |
|00002880| 61 20 4c 69 73 70 20 65 | 78 70 72 65 73 73 69 6f |a Lisp e|xpressio|
|00002890| 6e 2e 20 20 4c 65 74 20 | 75 73 65 72 20 65 64 69 |n.  Let |user edi|
|000028a0| 74 20 74 68 61 74 20 65 | 78 70 72 65 73 73 69 6f |t that e|xpressio|
|000028b0| 6e 20 69 6e 0a 74 68 65 | 20 6d 69 6e 69 62 75 66 |n in.the| minibuf|
|000028c0| 66 65 72 2c 20 74 68 65 | 6e 20 72 65 61 64 20 61 |fer, the|n read a|
|000028d0| 6e 64 20 65 76 61 6c 75 | 61 74 65 20 74 68 65 20 |nd evalu|ate the |
|000028e0| 72 65 73 75 6c 74 2e 1f | 0a 28 64 65 66 61 6c 69 |result..|.(defali|
|000028f0| 61 73 20 27 65 64 69 74 | 2d 61 6e 64 2d 65 76 61 |as 'edit|-and-eva|
|00002900| 6c 2d 63 6f 6d 6d 61 6e | 64 20 23 5b 28 70 72 6f |l-comman|d #[(pro|
|00002910| 6d 70 74 20 63 6f 6d 6d | 61 6e 64 29 20 22 c0 09 |mpt comm|and) "..|
|00002920| c2 0b 21 5c 66 c5 c6 25 | 1b 0e 07 40 3b 83 16 00 |..!\f..%|...@;...|
|00002930| 0e 07 41 16 07 0b 0e 07 | 40 9a 84 24 00 0b 0e 07 |..A.....|@..$....|
|00002940| 42 16 07 c8 0b 21 29 87 | 22 20 5b 72 65 61 64 2d |B....!).|" [read-|
|00002950| 66 72 6f 6d 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |from-min|ibuffer |
|00002960| 70 72 6f 6d 70 74 20 70 | 72 69 6e 31 2d 74 6f 2d |prompt p|rin1-to-|
|00002970| 73 74 72 69 6e 67 20 63 | 6f 6d 6d 61 6e 64 20 72 |string c|ommand r|
|00002980| 65 61 64 2d 65 78 70 72 | 65 73 73 69 6f 6e 2d 6d |ead-expr|ession-m|
|00002990| 61 70 20 74 20 28 63 6f | 6d 6d 61 6e 64 2d 68 69 |ap t (co|mmand-hi|
|000029a0| 73 74 6f 72 79 20 2e 20 | 31 29 20 63 6f 6d 6d 61 |story . |1) comma|
|000029b0| 6e 64 2d 68 69 73 74 6f | 72 79 20 65 76 61 6c 5d |nd-histo|ry eval]|
|000029c0| 20 36 20 28 23 24 20 2e | 20 31 30 32 39 35 29 5d | 6 (#$ .| 10295)]|
|000029d0| 29 0a 23 40 35 33 37 20 | 45 64 69 74 20 61 6e 64 |).#@537 |Edit and|
|000029e0| 20 72 65 2d 65 76 61 6c | 75 61 74 65 20 6c 61 73 | re-eval|uate las|
|000029f0| 74 20 63 6f 6d 70 6c 65 | 78 20 63 6f 6d 6d 61 6e |t comple|x comman|
|00002a00| 64 2c 20 6f 72 20 41 52 | 47 74 68 20 66 72 6f 6d |d, or AR|Gth from|
|00002a10| 20 6c 61 73 74 2e 0a 41 | 20 63 6f 6d 70 6c 65 78 | last..A| complex|
|00002a20| 20 63 6f 6d 6d 61 6e 64 | 20 69 73 20 6f 6e 65 20 | command| is one |
|00002a30| 77 68 69 63 68 20 75 73 | 65 64 20 74 68 65 20 6d |which us|ed the m|
|00002a40| 69 6e 69 62 75 66 66 65 | 72 2e 0a 54 68 65 20 63 |inibuffe|r..The c|
|00002a50| 6f 6d 6d 61 6e 64 20 69 | 73 20 70 6c 61 63 65 64 |ommand i|s placed|
|00002a60| 20 69 6e 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 | in the |minibuff|
|00002a70| 65 72 20 61 73 20 61 20 | 4c 69 73 70 20 66 6f 72 |er as a |Lisp for|
|00002a80| 6d 20 66 6f 72 20 65 64 | 69 74 69 6e 67 2e 0a 54 |m for ed|iting..T|
|00002a90| 68 65 20 72 65 73 75 6c | 74 20 69 73 20 65 78 65 |he resul|t is exe|
|00002aa0| 63 75 74 65 64 2c 20 72 | 65 70 65 61 74 69 6e 67 |cuted, r|epeating|
|00002ab0| 20 74 68 65 20 63 6f 6d | 6d 61 6e 64 20 61 73 20 | the com|mand as |
|00002ac0| 63 68 61 6e 67 65 64 2e | 0a 49 66 20 74 68 65 20 |changed.|.If the |
|00002ad0| 63 6f 6d 6d 61 6e 64 20 | 68 61 73 20 62 65 65 6e |command |has been|
|00002ae0| 20 63 68 61 6e 67 65 64 | 20 6f 72 20 69 73 20 6e | changed| or is n|
|00002af0| 6f 74 20 74 68 65 20 6d | 6f 73 74 20 72 65 63 65 |ot the m|ost rece|
|00002b00| 6e 74 20 70 72 65 76 69 | 6f 75 73 20 63 6f 6d 6d |nt previ|ous comm|
|00002b10| 61 6e 64 0a 69 74 20 69 | 73 20 61 64 64 65 64 20 |and.it i|s added |
|00002b20| 74 6f 20 74 68 65 20 66 | 72 6f 6e 74 20 6f 66 20 |to the f|ront of |
|00002b30| 74 68 65 20 63 6f 6d 6d | 61 6e 64 20 68 69 73 74 |the comm|and hist|
|00002b40| 6f 72 79 2e 0a 59 6f 75 | 20 63 61 6e 20 75 73 65 |ory..You| can use|
|00002b50| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 20 | the min|ibuffer |
|00002b60| 68 69 73 74 6f 72 79 20 | 63 6f 6d 6d 61 6e 64 73 |history |commands|
|00002b70| 20 5c 3c 6d 69 6e 69 62 | 75 66 66 65 72 2d 6c 6f | \<minib|uffer-lo|
|00002b80| 63 61 6c 2d 6d 61 70 3e | 5c 5b 6e 65 78 74 2d 68 |cal-map>|\[next-h|
|00002b90| 69 73 74 6f 72 79 2d 65 | 6c 65 6d 65 6e 74 5d 20 |istory-e|lement] |
|00002ba0| 61 6e 64 20 5c 5b 70 72 | 65 76 69 6f 75 73 2d 68 |and \[pr|evious-h|
|00002bb0| 69 73 74 6f 72 79 2d 65 | 6c 65 6d 65 6e 74 5d 0a |istory-e|lement].|
|00002bc0| 74 6f 20 67 65 74 20 64 | 69 66 66 65 72 65 6e 74 |to get d|ifferent|
|00002bd0| 20 63 6f 6d 6d 61 6e 64 | 73 20 74 6f 20 65 64 69 | command|s to edi|
|00002be0| 74 20 61 6e 64 20 72 65 | 73 75 62 6d 69 74 2e 1f |t and re|submit..|
|00002bf0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 72 65 70 65 |.(defali|as 'repe|
|00002c00| 61 74 2d 63 6f 6d 70 6c | 65 78 2d 63 6f 6d 6d 61 |at-compl|ex-comma|
|00002c10| 6e 64 20 23 5b 28 61 72 | 67 29 20 22 08 53 09 38 |nd #[(ar|g) ".S.8|
|00002c20| 08 c2 c3 1c 1d 1e 06 89 | 1e 07 83 3d 00 c3 1e 08 |........|...=....|
|00002c30| c9 ca cb 0e 07 21 0e 5c | 66 c2 c1 08 42 25 29 14 |.....!.\|f...B%).|
|00002c40| 09 40 3b 83 2c 00 09 41 | 11 5c 66 09 40 9a 84 37 |.@;.,..A|.\f.@..7|
|00002c50| 00 5c 66 09 42 11 cd 5c | 66 21 82 3f 00 ce 20 2c |.\f.B..\|f!.?.. ,|
|00002c60| 87 22 20 5b 61 72 67 20 | 63 6f 6d 6d 61 6e 64 2d |." [arg |command-|
|00002c70| 68 69 73 74 6f 72 79 20 | 74 20 6e 69 6c 20 6e 65 |history |t nil ne|
|00002c80| 77 63 6d 64 20 6d 69 6e | 69 62 75 66 66 65 72 2d |wcmd min|ibuffer-|
|00002c90| 68 69 73 74 6f 72 79 2d | 73 65 78 70 2d 66 6c 61 |history-|sexp-fla|
|00002ca0| 67 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 68 69 73 |g minibu|ffer-his|
|00002cb0| 74 6f 72 79 2d 70 6f 73 | 69 74 69 6f 6e 20 65 6c |tory-pos|ition el|
|00002cc0| 74 20 70 72 69 6e 74 2d | 6c 65 76 65 6c 20 72 65 |t print-|level re|
|00002cd0| 61 64 2d 66 72 6f 6d 2d | 6d 69 6e 69 62 75 66 66 |ad-from-|minibuff|
|00002ce0| 65 72 20 22 52 65 64 6f | 3a 20 22 20 70 72 69 6e |er "Redo|: " prin|
|00002cf0| 31 2d 74 6f 2d 73 74 72 | 69 6e 67 20 72 65 61 64 |1-to-str|ing read|
|00002d00| 2d 65 78 70 72 65 73 73 | 69 6f 6e 2d 6d 61 70 20 |-express|ion-map |
|00002d10| 65 76 61 6c 20 64 69 6e | 67 5d 20 38 20 28 23 24 |eval din|g] 8 (#$|
|00002d20| 20 2e 20 31 30 37 31 32 | 29 20 22 70 22 5d 29 0a | . 10712|) "p"]).|
|00002d30| 23 40 31 32 34 20 44 65 | 66 61 75 6c 74 20 6d 69 |#@124 De|fault mi|
|00002d40| 6e 69 62 75 66 66 65 72 | 20 68 69 73 74 6f 72 79 |nibuffer| history|
|00002d50| 20 6c 69 73 74 2e 0a 54 | 68 69 73 20 69 73 20 75 | list..T|his is u|
|00002d60| 73 65 64 20 66 6f 72 20 | 61 6c 6c 20 6d 69 6e 69 |sed for |all mini|
|00002d70| 62 75 66 66 65 72 20 69 | 6e 70 75 74 0a 65 78 63 |buffer i|nput.exc|
|00002d80| 65 70 74 20 77 68 65 6e | 20 61 6e 20 61 6c 74 65 |ept when| an alte|
|00002d90| 72 6e 61 74 65 20 68 69 | 73 74 6f 72 79 20 6c 69 |rnate hi|story li|
|00002da0| 73 74 20 69 73 20 73 70 | 65 63 69 66 69 65 64 2e |st is sp|ecified.|
|00002db0| 1f 0a 28 64 65 66 76 61 | 72 20 6d 69 6e 69 62 75 |..(defva|r minibu|
|00002dc0| 66 66 65 72 2d 68 69 73 | 74 6f 72 79 20 6e 69 6c |ffer-his|tory nil|
|00002dd0| 20 28 23 24 20 2e 20 31 | 31 35 37 34 29 29 0a 23 | (#$ . 1|1574)).#|
|00002de0| 40 31 36 36 20 4e 6f 6e | 2d 6e 69 6c 20 77 68 65 |@166 Non|-nil whe|
|00002df0| 6e 20 64 6f 69 6e 67 20 | 68 69 73 74 6f 72 79 20 |n doing |history |
|00002e00| 6f 70 65 72 61 74 69 6f | 6e 73 20 6f 6e 20 60 63 |operatio|ns on `c|
|00002e10| 6f 6d 6d 61 6e 64 2d 68 | 69 73 74 6f 72 79 27 2e |ommand-h|istory'.|
|00002e20| 0a 4d 6f 72 65 20 67 65 | 6e 65 72 61 6c 6c 79 2c |.More ge|nerally,|
|00002e30| 20 69 6e 64 69 63 61 74 | 65 73 20 74 68 61 74 20 | indicat|es that |
|00002e40| 74 68 65 20 68 69 73 74 | 6f 72 79 20 6c 69 73 74 |the hist|ory list|
|00002e50| 20 62 65 69 6e 67 20 61 | 63 74 65 64 20 6f 6e 0a | being a|cted on.|
|00002e60| 63 6f 6e 74 61 69 6e 73 | 20 65 78 70 72 65 73 73 |contains| express|
|00002e70| 69 6f 6e 73 20 72 61 74 | 68 65 72 20 74 68 61 6e |ions rat|her than|
|00002e80| 20 73 74 72 69 6e 67 73 | 2e 1f 0a 28 64 65 66 76 | strings|...(defv|
|00002e90| 61 72 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 68 69 |ar minib|uffer-hi|
|00002ea0| 73 74 6f 72 79 2d 73 65 | 78 70 2d 66 6c 61 67 20 |story-se|xp-flag |
|00002eb0| 6e 69 6c 20 28 23 24 20 | 2e 20 31 31 37 34 39 29 |nil (#$ |. 11749)|
|00002ec0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 11 |).(byte-|code "..|
|00002ed0| c2 13 c4 c5 21 84 5c 66 | 00 c2 15 c5 0e 06 42 16 |....!.\f|......B.|
|00002ee0| 06 c7 c8 c9 5c 22 87 22 | 20 5b 6d 69 6e 69 62 75 |....\"."| [minibu|
|00002ef0| 66 66 65 72 2d 68 69 73 | 74 6f 72 79 20 6d 69 6e |ffer-his|tory min|
|00002f00| 69 62 75 66 66 65 72 2d | 68 69 73 74 6f 72 79 2d |ibuffer-|history-|
|00002f10| 76 61 72 69 61 62 6c 65 | 20 6e 69 6c 20 6d 69 6e |variable| nil min|
|00002f20| 69 62 75 66 66 65 72 2d | 68 69 73 74 6f 72 79 2d |ibuffer-|history-|
|00002f30| 70 6f 73 69 74 69 6f 6e | 20 62 6f 75 6e 64 70 20 |position| boundp |
|00002f40| 6d 69 6e 69 62 75 66 66 | 65 72 2d 68 69 73 74 6f |minibuff|er-histo|
|00002f50| 72 79 2d 73 65 61 72 63 | 68 2d 68 69 73 74 6f 72 |ry-searc|h-histor|
|00002f60| 79 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |y curren|t-load-l|
|00002f70| 69 73 74 20 6d 61 70 63 | 61 72 20 23 5b 28 6b 65 |ist mapc|ar #[(ke|
|00002f80| 79 2d 61 6e 64 2d 63 6f | 6d 6d 61 6e 64 29 20 22 |y-and-co|mmand) "|
|00002f90| c0 c1 c2 5c 22 87 22 20 | 5b 6d 61 70 63 61 72 20 |...\"." |[mapcar |
|00002fa0| 23 5b 28 6b 65 79 6d 61 | 70 2d 61 6e 64 2d 63 6f |#[(keyma|p-and-co|
|00002fb0| 6d 70 6c 65 74 69 6f 6e | 70 29 20 22 c0 09 40 4a |mpletion|p) "..@J|
|00002fc0| 5c 6e 40 5c 6e 41 89 1b | 3a 83 13 00 0b 40 82 14 |\n@\nA..|:....@..|
|00002fd0| 00 0b 29 23 87 22 20 5b | 64 65 66 69 6e 65 2d 6b |..)#." [|define-k|
|00002fe0| 65 79 20 6b 65 79 6d 61 | 70 2d 61 6e 64 2d 63 6f |ey keyma|p-and-co|
|00002ff0| 6d 70 6c 65 74 69 6f 6e | 70 20 6b 65 79 2d 61 6e |mpletion|p key-an|
|00003000| 64 2d 63 6f 6d 6d 61 6e | 64 20 63 6f 6d 6d 61 6e |d-comman|d comman|
|00003010| 64 5d 20 35 5d 20 28 28 | 6d 69 6e 69 62 75 66 66 |d] 5] ((|minibuff|
|00003020| 65 72 2d 6c 6f 63 61 6c | 2d 6d 61 70 29 20 28 6d |er-local|-map) (m|
|00003030| 69 6e 69 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 2d |inibuffe|r-local-|
|00003040| 6e 73 2d 6d 61 70 29 20 | 28 6d 69 6e 69 62 75 66 |ns-map) |(minibuf|
|00003050| 66 65 72 2d 6c 6f 63 61 | 6c 2d 63 6f 6d 70 6c 65 |fer-loca|l-comple|
|00003060| 74 69 6f 6e 2d 6d 61 70 | 20 2e 20 74 29 20 28 6d |tion-map| . t) (m|
|00003070| 69 6e 69 62 75 66 66 65 | 72 2d 6c 6f 63 61 6c 2d |inibuffe|r-local-|
|00003080| 6d 75 73 74 2d 6d 61 74 | 63 68 2d 6d 61 70 20 2e |must-mat|ch-map .|
|00003090| 20 74 29 20 28 72 65 61 | 64 2d 65 78 70 72 65 73 | t) (rea|d-expres|
|000030a0| 73 69 6f 6e 2d 6d 61 70 | 29 29 5d 20 33 5d 20 28 |sion-map|))] 3] (|
|000030b0| 28 22 1b 6e 22 20 6e 65 | 78 74 2d 68 69 73 74 6f |(".n" ne|xt-histo|
|000030c0| 72 79 2d 65 6c 65 6d 65 | 6e 74 20 2e 20 6e 65 78 |ry-eleme|nt . nex|
|000030d0| 74 2d 63 6f 6d 70 6c 65 | 74 65 2d 68 69 73 74 6f |t-comple|te-histo|
|000030e0| 72 79 2d 65 6c 65 6d 65 | 6e 74 29 20 28 5b 6e 65 |ry-eleme|nt) ([ne|
|000030f0| 78 74 5d 20 6e 65 78 74 | 2d 68 69 73 74 6f 72 79 |xt] next|-history|
|00003100| 2d 65 6c 65 6d 65 6e 74 | 20 2e 20 6e 65 78 74 2d |-element| . next-|
|00003110| 63 6f 6d 70 6c 65 74 65 | 2d 68 69 73 74 6f 72 79 |complete|-history|
|00003120| 2d 65 6c 65 6d 65 6e 74 | 29 20 28 22 1b 70 22 20 |-element|) (".p" |
|00003130| 70 72 65 76 69 6f 75 73 | 2d 68 69 73 74 6f 72 79 |previous|-history|
|00003140| 2d 65 6c 65 6d 65 6e 74 | 20 2e 20 70 72 65 76 69 |-element| . previ|
|00003150| 6f 75 73 2d 63 6f 6d 70 | 6c 65 74 65 2d 68 69 73 |ous-comp|lete-his|
|00003160| 74 6f 72 79 2d 65 6c 65 | 6d 65 6e 74 29 20 28 5b |tory-ele|ment) ([|
|00003170| 70 72 69 6f 72 5d 20 70 | 72 65 76 69 6f 75 73 2d |prior] p|revious-|
|00003180| 68 69 73 74 6f 72 79 2d | 65 6c 65 6d 65 6e 74 20 |history-|element |
|00003190| 2e 20 70 72 65 76 69 6f | 75 73 2d 63 6f 6d 70 6c |. previo|us-compl|
|000031a0| 65 74 65 2d 68 69 73 74 | 6f 72 79 2d 65 6c 65 6d |ete-hist|ory-elem|
|000031b0| 65 6e 74 29 20 28 22 1b | 72 22 20 2e 20 70 72 65 |ent) (".|r" . pre|
|000031c0| 76 69 6f 75 73 2d 6d 61 | 74 63 68 69 6e 67 2d 68 |vious-ma|tching-h|
|000031d0| 69 73 74 6f 72 79 2d 65 | 6c 65 6d 65 6e 74 29 20 |istory-e|lement) |
|000031e0| 28 22 1b 73 22 20 2e 20 | 6e 65 78 74 2d 6d 61 74 |(".s" . |next-mat|
|000031f0| 63 68 69 6e 67 2d 68 69 | 73 74 6f 72 79 2d 65 6c |ching-hi|story-el|
|00003200| 65 6d 65 6e 74 29 29 5d | 20 33 29 0a 23 40 32 31 |ement))]| 3).#@21|
|00003210| 36 20 46 69 6e 64 20 74 | 68 65 20 70 72 65 76 69 |6 Find t|he previ|
|00003220| 6f 75 73 20 68 69 73 74 | 6f 72 79 20 65 6c 65 6d |ous hist|ory elem|
|00003230| 65 6e 74 20 74 68 61 74 | 20 6d 61 74 63 68 65 73 |ent that| matches|
|00003240| 20 52 45 47 45 58 50 2e | 0a 28 50 72 65 76 69 6f | REGEXP.|.(Previo|
|00003250| 75 73 20 68 69 73 74 6f | 72 79 20 65 6c 65 6d 65 |us histo|ry eleme|
|00003260| 6e 74 73 20 72 65 66 65 | 72 20 74 6f 20 65 61 72 |nts refe|r to ear|
|00003270| 6c 69 65 72 20 61 63 74 | 69 6f 6e 73 2e 29 0a 57 |lier act|ions.).W|
|00003280| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00003290| 65 6e 74 20 4e 2c 20 73 | 65 61 72 63 68 20 66 6f |ent N, s|earch fo|
|000032a0| 72 20 4e 74 68 20 70 72 | 65 76 69 6f 75 73 20 6d |r Nth pr|evious m|
|000032b0| 61 74 63 68 2e 0a 49 66 | 20 4e 20 69 73 20 6e 65 |atch..If| N is ne|
|000032c0| 67 61 74 69 76 65 2c 20 | 66 69 6e 64 20 74 68 65 |gative, |find the|
|000032d0| 20 6e 65 78 74 20 6f 72 | 20 4e 74 68 20 6e 65 78 | next or| Nth nex|
|000032e0| 74 20 6d 61 74 63 68 2e | 1f 0a 28 64 65 66 61 6c |t match.|..(defal|
|000032f0| 69 61 73 20 27 70 72 65 | 76 69 6f 75 73 2d 6d 61 |ias 'pre|vious-ma|
|00003300| 74 63 68 69 6e 67 2d 68 | 69 73 74 6f 72 79 2d 65 |tching-h|istory-e|
|00003310| 6c 65 6d 65 6e 74 20 23 | 5b 28 72 65 67 65 78 70 |lement #|[(regexp|
|00003320| 20 6e 29 20 22 08 4a c1 | 5c 6e 1b 1c 1d 0e 06 c7 | n) ".J.|\n......|
|00003330| 55 84 69 00 0b 14 c8 0b | 0e 06 c7 57 83 1d 00 c9 |U.i.....|...W....|
|00003340| 82 1e 00 c8 5c 5c 5d 0d | 47 5e 89 13 5c 66 55 83 |....\\].|G^..\fU.|
|00003350| 38 00 ca 0b c8 55 83 35 | 00 cb 82 36 00 cc 21 88 |8....U.5|...6..!.|
|00003360| cd 0e 0e 0e 0f 83 4d 00 | c1 1e 10 d1 0b 53 0d 38 |......M.|.....S.8|
|00003370| 21 29 82 51 00 0b 53 0d | 38 5c 22 83 07 00 0e 06 |!).Q..S.|8\".....|
|00003380| 89 c7 57 83 61 00 c8 82 | 62 00 c9 5c 5c 89 16 06 |..W.a...|b..\\...|
|00003390| 82 09 00 0b 12 d2 20 88 | 0b 53 0d 38 1e 13 0e 0f |...... .|.S.8....|
|000033a0| 83 84 00 c1 1e 10 d1 0e | 13 21 29 82 86 00 0e 13 |........|.!).....|
|000033b0| 63 88 29 65 62 88 2b 0e | 14 40 40 d5 3d 84 9f 00 |c.)eb.+.|.@@.=...|
|000033c0| 0e 14 40 40 d6 3d 85 a5 | 00 0e 14 41 89 16 14 87 |..@@.=..|...A....|
|000033d0| 22 20 5b 6d 69 6e 69 62 | 75 66 66 65 72 2d 68 69 |" [minib|uffer-hi|
|000033e0| 73 74 6f 72 79 2d 76 61 | 72 69 61 62 6c 65 20 6e |story-va|riable n|
|000033f0| 69 6c 20 6d 69 6e 69 62 | 75 66 66 65 72 2d 68 69 |il minib|uffer-hi|
|00003400| 73 74 6f 72 79 2d 70 6f | 73 69 74 69 6f 6e 20 70 |story-po|sition p|
|00003410| 6f 73 20 70 72 65 76 70 | 6f 73 20 68 69 73 74 6f |os prevp|os histo|
|00003420| 72 79 20 6e 20 30 20 31 | 20 2d 31 20 65 72 72 6f |ry n 0 1| -1 erro|
|00003430| 72 20 22 4e 6f 20 6c 61 | 74 65 72 20 6d 61 74 63 |r "No la|ter matc|
|00003440| 68 69 6e 67 20 68 69 73 | 74 6f 72 79 20 69 74 65 |hing his|tory ite|
|00003450| 6d 22 20 22 4e 6f 20 65 | 61 72 6c 69 65 72 20 6d |m" "No e|arlier m|
|00003460| 61 74 63 68 69 6e 67 20 | 68 69 73 74 6f 72 79 20 |atching |history |
|00003470| 69 74 65 6d 22 20 73 74 | 72 69 6e 67 2d 6d 61 74 |item" st|ring-mat|
|00003480| 63 68 20 72 65 67 65 78 | 70 20 6d 69 6e 69 62 75 |ch regex|p minibu|
|00003490| 66 66 65 72 2d 68 69 73 | 74 6f 72 79 2d 73 65 78 |ffer-his|tory-sex|
|000034a0| 70 2d 66 6c 61 67 20 70 | 72 69 6e 74 2d 6c 65 76 |p-flag p|rint-lev|
|000034b0| 65 6c 20 70 72 69 6e 31 | 2d 74 6f 2d 73 74 72 69 |el prin1|-to-stri|
|000034c0| 6e 67 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |ng erase|-buffer |
|000034d0| 65 6c 74 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |elt comm|and-hist|
|000034e0| 6f 72 79 20 70 72 65 76 | 69 6f 75 73 2d 6d 61 74 |ory prev|ious-mat|
|000034f0| 63 68 69 6e 67 2d 68 69 | 73 74 6f 72 79 2d 65 6c |ching-hi|story-el|
|00003500| 65 6d 65 6e 74 20 6e 65 | 78 74 2d 6d 61 74 63 68 |ement ne|xt-match|
|00003510| 69 6e 67 2d 68 69 73 74 | 6f 72 79 2d 65 6c 65 6d |ing-hist|ory-elem|
|00003520| 65 6e 74 5d 20 36 20 28 | 23 24 20 2e 20 31 32 38 |ent] 6 (|#$ . 128|
|00003530| 31 38 29 20 28 6c 65 74 | 2a 20 28 28 65 6e 61 62 |18) (let|* ((enab|
|00003540| 6c 65 2d 72 65 63 75 72 | 73 69 76 65 2d 6d 69 6e |le-recur|sive-min|
|00003550| 69 62 75 66 66 65 72 73 | 20 74 29 20 28 6d 69 6e |ibuffers| t) (min|
|00003560| 69 62 75 66 66 65 72 2d | 68 69 73 74 6f 72 79 2d |ibuffer-|history-|
|00003570| 73 65 78 70 2d 66 6c 61 | 67 20 6e 69 6c 29 20 28 |sexp-fla|g nil) (|
|00003580| 72 65 67 65 78 70 20 28 | 72 65 61 64 2d 66 72 6f |regexp (|read-fro|
|00003590| 6d 2d 6d 69 6e 69 62 75 | 66 66 65 72 20 22 50 72 |m-minibu|ffer "Pr|
|000035a0| 65 76 69 6f 75 73 20 65 | 6c 65 6d 65 6e 74 20 6d |evious e|lement m|
|000035b0| 61 74 63 68 69 6e 67 20 | 28 72 65 67 65 78 70 29 |atching |(regexp)|
|000035c0| 3a 20 22 20 6e 69 6c 20 | 6d 69 6e 69 62 75 66 66 |: " nil |minibuff|
|000035d0| 65 72 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 6e 69 6c |er-local|-map nil|
|000035e0| 20 28 71 75 6f 74 65 20 | 6d 69 6e 69 62 75 66 66 | (quote |minibuff|
|000035f0| 65 72 2d 68 69 73 74 6f | 72 79 2d 73 65 61 72 63 |er-histo|ry-searc|
|00003600| 68 2d 68 69 73 74 6f 72 | 79 29 29 29 29 20 28 6c |h-histor|y)))) (l|
|00003610| 69 73 74 20 28 69 66 20 | 28 73 74 72 69 6e 67 3d |ist (if |(string=|
|00003620| 20 72 65 67 65 78 70 20 | 22 22 29 20 28 69 66 20 | regexp |"") (if |
|00003630| 6d 69 6e 69 62 75 66 66 | 65 72 2d 68 69 73 74 6f |minibuff|er-histo|
|00003640| 72 79 2d 73 65 61 72 63 | 68 2d 68 69 73 74 6f 72 |ry-searc|h-histor|
|00003650| 79 20 28 63 61 72 20 6d | 69 6e 69 62 75 66 66 65 |y (car m|inibuffe|
|00003660| 72 2d 68 69 73 74 6f 72 | 79 2d 73 65 61 72 63 68 |r-histor|y-search|
|00003670| 2d 68 69 73 74 6f 72 79 | 29 20 28 65 72 72 6f 72 |-history|) (error|
|00003680| 20 22 4e 6f 20 70 72 65 | 76 69 6f 75 73 20 68 69 | "No pre|vious hi|
|00003690| 73 74 6f 72 79 20 73 65 | 61 72 63 68 20 72 65 67 |story se|arch reg|
|000036a0| 65 78 70 22 29 29 20 72 | 65 67 65 78 70 29 20 28 |exp")) r|egexp) (|
|000036b0| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|000036c0| 61 6c 75 65 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |alue cur|rent-pre|
|000036d0| 66 69 78 2d 61 72 67 29 | 29 29 5d 29 0a 23 40 32 |fix-arg)|))]).#@2|
|000036e0| 32 31 20 46 69 6e 64 20 | 74 68 65 20 6e 65 78 74 |21 Find |the next|
|000036f0| 20 68 69 73 74 6f 72 79 | 20 65 6c 65 6d 65 6e 74 | history| element|
|00003700| 20 74 68 61 74 20 6d 61 | 74 63 68 65 73 20 52 45 | that ma|tches RE|
|00003710| 47 45 58 50 2e 0a 28 54 | 68 65 20 6e 65 78 74 20 |GEXP..(T|he next |
|00003720| 68 69 73 74 6f 72 79 20 | 65 6c 65 6d 65 6e 74 20 |history |element |
|00003730| 72 65 66 65 72 73 20 74 | 6f 20 61 20 6d 6f 72 65 |refers t|o a more|
|00003740| 20 72 65 63 65 6e 74 20 | 61 63 74 69 6f 6e 2e 29 | recent |action.)|
|00003750| 0a 57 69 74 68 20 70 72 | 65 66 69 78 20 61 72 67 |.With pr|efix arg|
|00003760| 75 6d 65 6e 74 20 4e 2c | 20 73 65 61 72 63 68 20 |ument N,| search |
|00003770| 66 6f 72 20 4e 74 68 20 | 6e 65 78 74 20 6d 61 74 |for Nth |next mat|
|00003780| 63 68 2e 0a 49 66 20 4e | 20 69 73 20 6e 65 67 61 |ch..If N| is nega|
|00003790| 74 69 76 65 2c 20 66 69 | 6e 64 20 74 68 65 20 70 |tive, fi|nd the p|
|000037a0| 72 65 76 69 6f 75 73 20 | 6f 72 20 4e 74 68 20 70 |revious |or Nth p|
|000037b0| 72 65 76 69 6f 75 73 20 | 6d 61 74 63 68 2e 1f 0a |revious |match...|
|000037c0| 28 64 65 66 61 6c 69 61 | 73 20 27 6e 65 78 74 2d |(defalia|s 'next-|
|000037d0| 6d 61 74 63 68 69 6e 67 | 2d 68 69 73 74 6f 72 79 |matching|-history|
|000037e0| 2d 65 6c 65 6d 65 6e 74 | 20 23 5b 28 72 65 67 65 |-element| #[(rege|
|000037f0| 78 70 20 6e 29 20 22 c0 | 09 5c 6e 5b 5c 22 87 22 |xp n) ".|.\n[\"."|
|00003800| 20 5b 70 72 65 76 69 6f | 75 73 2d 6d 61 74 63 68 | [previo|us-match|
|00003810| 69 6e 67 2d 68 69 73 74 | 6f 72 79 2d 65 6c 65 6d |ing-hist|ory-elem|
|00003820| 65 6e 74 20 72 65 67 65 | 78 70 20 6e 5d 20 33 20 |ent rege|xp n] 3 |
|00003830| 28 23 24 20 2e 20 31 34 | 30 35 31 29 20 28 6c 65 |(#$ . 14|051) (le|
|00003840| 74 2a 20 28 28 65 6e 61 | 62 6c 65 2d 72 65 63 75 |t* ((ena|ble-recu|
|00003850| 72 73 69 76 65 2d 6d 69 | 6e 69 62 75 66 66 65 72 |rsive-mi|nibuffer|
|00003860| 73 20 74 29 20 28 6d 69 | 6e 69 62 75 66 66 65 72 |s t) (mi|nibuffer|
|00003870| 2d 68 69 73 74 6f 72 79 | 2d 73 65 78 70 2d 66 6c |-history|-sexp-fl|
|00003880| 61 67 20 6e 69 6c 29 20 | 28 72 65 67 65 78 70 20 |ag nil) |(regexp |
|00003890| 28 72 65 61 64 2d 66 72 | 6f 6d 2d 6d 69 6e 69 62 |(read-fr|om-minib|
|000038a0| 75 66 66 65 72 20 22 4e | 65 78 74 20 65 6c 65 6d |uffer "N|ext elem|
|000038b0| 65 6e 74 20 6d 61 74 63 | 68 69 6e 67 20 28 72 65 |ent matc|hing (re|
|000038c0| 67 65 78 70 29 3a 20 22 | 20 6e 69 6c 20 6d 69 6e |gexp): "| nil min|
|000038d0| 69 62 75 66 66 65 72 2d | 6c 6f 63 61 6c 2d 6d 61 |ibuffer-|local-ma|
|000038e0| 70 20 6e 69 6c 20 28 71 | 75 6f 74 65 20 6d 69 6e |p nil (q|uote min|
|000038f0| 69 62 75 66 66 65 72 2d | 68 69 73 74 6f 72 79 2d |ibuffer-|history-|
|00003900| 73 65 61 72 63 68 2d 68 | 69 73 74 6f 72 79 29 29 |search-h|istory))|
|00003910| 29 29 20 28 6c 69 73 74 | 20 28 69 66 20 28 73 74 |)) (list| (if (st|
|00003920| 72 69 6e 67 3d 20 72 65 | 67 65 78 70 20 22 22 29 |ring= re|gexp "")|
|00003930| 20 28 73 65 74 63 61 72 | 20 6d 69 6e 69 62 75 66 | (setcar| minibuf|
|00003940| 66 65 72 2d 68 69 73 74 | 6f 72 79 2d 73 65 61 72 |fer-hist|ory-sear|
|00003950| 63 68 2d 68 69 73 74 6f | 72 79 20 28 6e 74 68 20 |ch-histo|ry (nth |
|00003960| 31 20 6d 69 6e 69 62 75 | 66 66 65 72 2d 68 69 73 |1 minibu|ffer-his|
|00003970| 74 6f 72 79 2d 73 65 61 | 72 63 68 2d 68 69 73 74 |tory-sea|rch-hist|
|00003980| 6f 72 79 29 29 20 72 65 | 67 65 78 70 29 20 28 70 |ory)) re|gexp) (p|
|00003990| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|000039a0| 6c 75 65 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |lue curr|ent-pref|
|000039b0| 69 78 2d 61 72 67 29 29 | 29 5d 29 0a 23 40 37 32 |ix-arg))|)]).#@72|
|000039c0| 20 49 6e 73 65 72 74 20 | 74 68 65 20 6e 65 78 74 | Insert |the next|
|000039d0| 20 65 6c 65 6d 65 6e 74 | 20 6f 66 20 74 68 65 20 | element| of the |
|000039e0| 6d 69 6e 69 62 75 66 66 | 65 72 20 68 69 73 74 6f |minibuff|er histo|
|000039f0| 72 79 20 69 6e 74 6f 20 | 74 68 65 20 6d 69 6e 69 |ry into |the mini|
|00003a00| 62 75 66 66 65 72 2e 1f | 0a 28 64 65 66 61 6c 69 |buffer..|.(defali|
|00003a10| 61 73 20 27 6e 65 78 74 | 2d 68 69 73 74 6f 72 79 |as 'next|-history|
|00003a20| 2d 65 6c 65 6d 65 6e 74 | 20 23 5b 28 6e 29 20 22 |-element| #[(n) "|
|00003a30| 08 c1 55 86 5c 5c 00 c2 | 0b 08 5a 5d 5c 66 4a 47 |..U.\\..|..Z]\fJG|
|00003a40| 5e 89 1d c1 55 84 1c 00 | 0b 0d 55 83 38 00 c6 0d |^...U...|..U.8...|
|00003a50| c1 55 83 29 00 08 c1 56 | 82 2c 00 0b c2 55 83 33 |.U.)...V|.,...U.3|
|00003a60| 00 c7 82 34 00 c8 21 82 | 5b 00 c9 20 88 0d 89 13 |...4..!.|[.. ....|
|00003a70| 53 5c 66 4a 38 1e 5c 6e | 0e 0b 83 54 00 cc 1e 0d |S\fJ8.\n|...T....|
|00003a80| ce 0e 5c 6e 21 29 82 56 | 00 0e 5c 6e 63 88 29 65 |..\n!).V|..\nc.)e|
|00003a90| 62 29 87 22 20 5b 6e 20 | 30 20 31 20 6d 69 6e 69 |b)." [n |0 1 mini|
|00003aa0| 62 75 66 66 65 72 2d 68 | 69 73 74 6f 72 79 2d 70 |buffer-h|istory-p|
|00003ab0| 6f 73 69 74 69 6f 6e 20 | 6d 69 6e 69 62 75 66 66 |osition |minibuff|
|00003ac0| 65 72 2d 68 69 73 74 6f | 72 79 2d 76 61 72 69 61 |er-histo|ry-varia|
|00003ad0| 62 6c 65 20 6e 61 72 67 | 20 65 72 72 6f 72 20 22 |ble narg| error "|
|00003ae0| 45 6e 64 20 6f 66 20 68 | 69 73 74 6f 72 79 3b 20 |End of h|istory; |
|00003af0| 6e 6f 20 6e 65 78 74 20 | 69 74 65 6d 22 20 22 42 |no next |item" "B|
|00003b00| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 68 69 73 74 |eginning| of hist|
|00003b10| 6f 72 79 3b 20 6e 6f 20 | 70 72 65 63 65 64 69 6e |ory; no |precedin|
|00003b20| 67 20 69 74 65 6d 22 20 | 65 72 61 73 65 2d 62 75 |g item" |erase-bu|
|00003b30| 66 66 65 72 20 65 6c 74 | 20 6d 69 6e 69 62 75 66 |ffer elt| minibuf|
|00003b40| 66 65 72 2d 68 69 73 74 | 6f 72 79 2d 73 65 78 70 |fer-hist|ory-sexp|
|00003b50| 2d 66 6c 61 67 20 6e 69 | 6c 20 70 72 69 6e 74 2d |-flag ni|l print-|
|00003b60| 6c 65 76 65 6c 20 70 72 | 69 6e 31 2d 74 6f 2d 73 |level pr|in1-to-s|
|00003b70| 74 72 69 6e 67 5d 20 34 | 20 28 23 24 20 2e 20 31 |tring] 4| (#$ . 1|
|00003b80| 34 37 38 35 29 20 22 70 | 22 5d 29 0a 23 40 37 37 |4785) "p|"]).#@77|
|00003b90| 20 49 6e 73 65 72 74 73 | 20 74 68 65 20 70 72 65 | Inserts| the pre|
|00003ba0| 76 69 6f 75 73 20 65 6c | 65 6d 65 6e 74 20 6f 66 |vious el|ement of|
|00003bb0| 20 74 68 65 20 6d 69 6e | 69 62 75 66 66 65 72 20 | the min|ibuffer |
|00003bc0| 68 69 73 74 6f 72 79 20 | 69 6e 74 6f 20 74 68 65 |history |into the|
|00003bd0| 20 6d 69 6e 69 62 75 66 | 66 65 72 2e 1f 0a 28 64 | minibuf|fer...(d|
|00003be0| 65 66 61 6c 69 61 73 20 | 27 70 72 65 76 69 6f 75 |efalias |'previou|
|00003bf0| 73 2d 68 69 73 74 6f 72 | 79 2d 65 6c 65 6d 65 6e |s-histor|y-elemen|
|00003c00| 74 20 23 5b 28 6e 29 20 | 22 c0 09 5b 21 87 22 20 |t #[(n) |"..[!." |
|00003c10| 5b 6e 65 78 74 2d 68 69 | 73 74 6f 72 79 2d 65 6c |[next-hi|story-el|
|00003c20| 65 6d 65 6e 74 20 6e 5d | 20 32 20 28 23 24 20 2e |ement n]| 2 (#$ .|
|00003c30| 20 31 35 32 34 39 29 20 | 22 70 22 5d 29 0a 23 40 | 15249) |"p"]).#@|
|00003c40| 37 35 20 47 65 74 20 6e | 65 78 74 20 65 6c 65 6d |75 Get n|ext elem|
|00003c50| 65 6e 74 20 6f 66 20 68 | 69 73 74 6f 72 79 20 77 |ent of h|istory w|
|00003c60| 68 69 63 68 20 69 73 20 | 61 20 63 6f 6d 70 6c 65 |hich is |a comple|
|00003c70| 74 69 6f 6e 20 6f 66 20 | 6d 69 6e 69 62 75 66 66 |tion of |minibuff|
|00003c80| 65 72 20 63 6f 6e 74 65 | 6e 74 73 2e 1f 0a 28 64 |er conte|nts...(d|
|00003c90| 65 66 61 6c 69 61 73 20 | 27 6e 65 78 74 2d 63 6f |efalias |'next-co|
|00003ca0| 6d 70 6c 65 74 65 2d 68 | 69 73 74 6f 72 79 2d 65 |mplete-h|istory-e|
|00003cb0| 6c 65 6d 65 6e 74 20 23 | 5b 28 6e 29 20 22 60 18 |lement #|[(n) "`.|
|00003cc0| c1 c2 c3 65 60 7b 21 50 | 5c 66 5c 22 88 08 62 29 |...e`{!P|\f\"..b)|
|00003cd0| 87 22 20 5b 70 6f 69 6e | 74 2d 61 74 2d 73 74 61 |." [poin|t-at-sta|
|00003ce0| 72 74 20 6e 65 78 74 2d | 6d 61 74 63 68 69 6e 67 |rt next-|matching|
|00003cf0| 2d 68 69 73 74 6f 72 79 | 2d 65 6c 65 6d 65 6e 74 |-history|-element|
|00003d00| 20 22 5e 22 20 72 65 67 | 65 78 70 2d 71 75 6f 74 | "^" reg|exp-quot|
|00003d10| 65 20 6e 5d 20 35 20 28 | 23 24 20 2e 20 31 35 34 |e n] 5 (|#$ . 154|
|00003d20| 32 37 29 20 22 70 22 5d | 29 0a 23 40 37 39 20 47 |27) "p"]|).#@79 G|
|00003d30| 65 74 20 70 72 65 76 69 | 6f 75 73 20 65 6c 65 6d |et previ|ous elem|
|00003d40| 65 6e 74 20 6f 66 20 68 | 69 73 74 6f 72 79 20 77 |ent of h|istory w|
|00003d50| 68 69 63 68 20 69 73 20 | 61 20 63 6f 6d 70 6c 65 |hich is |a comple|
|00003d60| 74 69 6f 6e 20 6f 66 20 | 6d 69 6e 69 62 75 66 66 |tion of |minibuff|
|00003d70| 65 72 20 63 6f 6e 74 65 | 6e 74 73 2e 1f 0a 28 64 |er conte|nts...(d|
|00003d80| 65 66 61 6c 69 61 73 20 | 27 70 72 65 76 69 6f 75 |efalias |'previou|
|00003d90| 73 2d 63 6f 6d 70 6c 65 | 74 65 2d 68 69 73 74 6f |s-comple|te-histo|
|00003da0| 72 79 2d 65 6c 65 6d 65 | 6e 74 20 23 5b 28 6e 29 |ry-eleme|nt #[(n)|
|00003db0| 20 22 c0 09 5b 21 87 22 | 20 5b 6e 65 78 74 2d 63 | "..[!."| [next-c|
|00003dc0| 6f 6d 70 6c 65 74 65 2d | 68 69 73 74 6f 72 79 2d |omplete-|history-|
|00003dd0| 65 6c 65 6d 65 6e 74 20 | 6e 5d 20 32 20 28 23 24 |element |n] 2 (#$|
|00003de0| 20 2e 20 31 35 36 36 33 | 29 20 22 70 22 5d 29 0a | . 15663|) "p"]).|
|00003df0| 23 40 36 31 20 47 6f 74 | 6f 20 6c 69 6e 65 20 41 |#@61 Got|o line A|
|00003e00| 52 47 2c 20 63 6f 75 6e | 74 69 6e 67 20 66 72 6f |RG, coun|ting fro|
|00003e10| 6d 20 6c 69 6e 65 20 31 | 20 61 74 20 62 65 67 69 |m line 1| at begi|
|00003e20| 6e 6e 69 6e 67 20 6f 66 | 20 62 75 66 66 65 72 2e |nning of| buffer.|
|00003e30| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 67 6f 74 |..(defal|ias 'got|
|00003e40| 6f 2d 6c 69 6e 65 20 23 | 5b 28 61 72 67 29 20 22 |o-line #|[(arg) "|
|00003e50| c0 09 21 11 8c 7e 88 c2 | 62 88 0b c4 3d 83 1a 00 |..!..~..|b...=...|
|00003e60| c5 c6 c7 c8 09 53 24 82 | 1d 00 09 53 79 29 87 22 |.....S$.|...Sy)."|
|00003e70| 20 5b 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 | [prefix|-numeric|
|00003e80| 2d 76 61 6c 75 65 20 61 | 72 67 20 31 20 73 65 6c |-value a|rg 1 sel|
|00003e90| 65 63 74 69 76 65 2d 64 | 69 73 70 6c 61 79 20 74 |ective-d|isplay t|
|00003ea0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|00003eb0| 72 64 20 22 5b 5c 6e 0d | 5d 22 20 6e 69 6c 20 65 |rd "[\n.|]" nil e|
|00003ec0| 6e 64 5d 20 35 20 28 23 | 24 20 2e 20 31 35 38 36 |nd] 5 (#|$ . 1586|
|00003ed0| 31 29 20 22 4e 47 6f 74 | 6f 20 6c 69 6e 65 3a 20 |1) "NGot|o line: |
|00003ee0| 22 5d 29 0a 28 64 65 66 | 69 6e 65 2d 66 75 6e 63 |"]).(def|ine-func|
|00003ef0| 74 69 6f 6e 20 28 71 75 | 6f 74 65 20 61 64 76 65 |tion (qu|ote adve|
|00003f00| 72 74 69 73 65 64 2d 75 | 6e 64 6f 29 20 28 71 75 |rtised-u|ndo) (qu|
|00003f10| 6f 74 65 20 75 6e 64 6f | 29 29 0a 23 40 31 31 36 |ote undo|)).#@116|
|00003f20| 20 55 6e 64 6f 20 73 6f | 6d 65 20 70 72 65 76 69 | Undo so|me previ|
|00003f30| 6f 75 73 20 63 68 61 6e | 67 65 73 2e 0a 52 65 70 |ous chan|ges..Rep|
|00003f40| 65 61 74 20 74 68 69 73 | 20 63 6f 6d 6d 61 6e 64 |eat this| command|
|00003f50| 20 74 6f 20 75 6e 64 6f | 20 6d 6f 72 65 20 63 68 | to undo| more ch|
|00003f60| 61 6e 67 65 73 2e 0a 41 | 20 6e 75 6d 65 72 69 63 |anges..A| numeric|
|00003f70| 20 61 72 67 75 6d 65 6e | 74 20 73 65 72 76 65 73 | argumen|t serves|
|00003f80| 20 61 73 20 61 20 72 65 | 70 65 61 74 20 63 6f 75 | as a re|peat cou|
|00003f90| 6e 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |nt...(de|falias '|
|00003fa0| 75 6e 64 6f 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |undo #[(|&optiona|
|00003fb0| 6c 20 61 72 67 29 20 22 | c0 11 c2 20 c3 20 1c 1d |l arg) "|... . ..|
|00003fc0| c6 20 c7 20 3d 84 14 00 | c8 c9 21 88 0e 5c 6e cb |. . =...|..!..\n.|
|00003fd0| 3d 84 5c 22 00 cc 20 88 | cd ce 21 88 cd 0e 0f 86 |=.\".. .|..!.....|
|00003fe0| 29 00 ce 21 88 0e 10 d1 | 1e 12 89 1e 13 83 5d 00 |)..!....|......].|
|00003ff0| 0e 12 84 5d 00 0e 13 40 | 83 5d 00 0e 13 40 a8 83 |...]...@|.]...@..|
|00004000| 54 00 c0 16 12 d4 0e 13 | 40 0e 10 5c 22 16 10 0e |T.......|@..\"...|
|00004010| 13 41 89 16 13 84 36 00 | 2a 0d 83 6b 00 c2 20 84 |.A....6.|*..k.. .|
|00004020| 6b 00 d5 5c 66 21 88 2a | cb 89 11 87 22 20 5b 74 |k..\f!.*|...." [t|
|00004030| 20 74 68 69 73 2d 63 6f | 6d 6d 61 6e 64 20 62 75 | this-co|mmand bu|
|00004040| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00004050| 72 65 63 65 6e 74 2d 61 | 75 74 6f 2d 73 61 76 65 |recent-a|uto-save|
|00004060| 2d 70 20 72 65 63 65 6e | 74 2d 73 61 76 65 20 6d |-p recen|t-save m|
|00004070| 6f 64 69 66 69 65 64 20 | 73 65 6c 65 63 74 65 64 |odified |selected|
|00004080| 2d 77 69 6e 64 6f 77 20 | 6d 69 6e 69 62 75 66 66 |-window |minibuff|
|00004090| 65 72 2d 77 69 6e 64 6f | 77 20 6d 65 73 73 61 67 |er-windo|w messag|
|000040a0| 65 20 22 55 6e 64 6f 21 | 22 20 6c 61 73 74 2d 63 |e "Undo!|" last-c|
|000040b0| 6f 6d 6d 61 6e 64 20 75 | 6e 64 6f 20 75 6e 64 6f |ommand u|ndo undo|
|000040c0| 2d 73 74 61 72 74 20 75 | 6e 64 6f 2d 6d 6f 72 65 |-start u|ndo-more|
|000040d0| 20 31 20 61 72 67 20 62 | 75 66 66 65 72 2d 75 6e | 1 arg b|uffer-un|
|000040e0| 64 6f 2d 6c 69 73 74 20 | 6e 69 6c 20 64 6f 6e 65 |do-list |nil done|
|000040f0| 20 74 61 69 6c 20 64 65 | 6c 71 20 64 65 6c 65 74 | tail de|lq delet|
|00004100| 65 2d 61 75 74 6f 2d 73 | 61 76 65 2d 66 69 6c 65 |e-auto-s|ave-file|
|00004110| 2d 69 66 2d 6e 65 63 65 | 73 73 61 72 79 5d 20 34 |-if-nece|ssary] 4|
|00004120| 20 28 23 24 20 2e 20 31 | 36 31 36 31 29 20 22 2a | (#$ . 1|6161) "*|
|00004130| 70 22 5d 29 0a 23 40 37 | 33 20 57 69 74 68 69 6e |p"]).#@7|3 Within|
|00004140| 20 61 20 72 75 6e 20 6f | 66 20 63 6f 6e 73 65 63 | a run o|f consec|
|00004150| 75 74 69 76 65 20 75 6e | 64 6f 20 63 6f 6d 6d 61 |utive un|do comma|
|00004160| 6e 64 73 2c 20 6c 69 73 | 74 20 72 65 6d 61 69 6e |nds, lis|t remain|
|00004170| 69 6e 67 20 74 6f 20 62 | 65 20 75 6e 64 6f 6e 65 |ing to b|e undone|
|00004180| 2e 1f 0a 28 64 65 66 76 | 61 72 20 70 65 6e 64 69 |...(defv|ar pendi|
|00004190| 6e 67 2d 75 6e 64 6f 2d | 6c 69 73 74 20 6e 69 6c |ng-undo-|list nil|
|000041a0| 20 28 23 24 20 2e 20 31 | 36 36 39 38 29 29 0a 23 | (#$ . 1|6698)).#|
|000041b0| 40 31 32 36 20 53 65 74 | 20 60 70 65 6e 64 69 6e |@126 Set| `pendin|
|000041c0| 67 2d 75 6e 64 6f 2d 6c | 69 73 74 27 20 74 6f 20 |g-undo-l|ist' to |
|000041d0| 74 68 65 20 66 72 6f 6e | 74 20 6f 66 20 74 68 65 |the fron|t of the|
|000041e0| 20 75 6e 64 6f 20 6c 69 | 73 74 2e 0a 54 68 65 20 | undo li|st..The |
|000041f0| 6e 65 78 74 20 63 61 6c | 6c 20 74 6f 20 60 75 6e |next cal|l to `un|
|00004200| 64 6f 2d 6d 6f 72 65 27 | 20 77 69 6c 6c 20 75 6e |do-more'| will un|
|00004210| 64 6f 20 74 68 65 20 6d | 6f 73 74 20 72 65 63 65 |do the m|ost rece|
|00004220| 6e 74 6c 79 20 6d 61 64 | 65 20 63 68 61 6e 67 65 |ntly mad|e change|
|00004230| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 6e |...(defa|lias 'un|
|00004240| 64 6f 2d 73 74 61 72 74 | 20 23 5b 6e 69 6c 20 22 |do-start| #[nil "|
|00004250| 08 c1 3d 83 5c 6e 00 c2 | c3 21 88 08 89 14 87 22 |..=.\n..|.!....."|
|00004260| 20 5b 62 75 66 66 65 72 | 2d 75 6e 64 6f 2d 6c 69 | [buffer|-undo-li|
|00004270| 73 74 20 74 20 65 72 72 | 6f 72 20 22 4e 6f 20 75 |st t err|or "No u|
|00004280| 6e 64 6f 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ndo info|rmation |
|00004290| 69 6e 20 74 68 69 73 20 | 62 75 66 66 65 72 22 20 |in this |buffer" |
|000042a0| 70 65 6e 64 69 6e 67 2d | 75 6e 64 6f 2d 6c 69 73 |pending-|undo-lis|
|000042b0| 74 5d 20 32 20 28 23 24 | 20 2e 20 31 36 38 32 31 |t] 2 (#$| . 16821|
|000042c0| 29 5d 29 0a 23 40 31 37 | 39 20 55 6e 64 6f 20 62 |)]).#@17|9 Undo b|
|000042d0| 61 63 6b 20 4e 20 75 6e | 64 6f 2d 62 6f 75 6e 64 |ack N un|do-bound|
|000042e0| 61 72 69 65 73 20 62 65 | 79 6f 6e 64 20 77 68 61 |aries be|yond wha|
|000042f0| 74 20 77 61 73 20 61 6c | 72 65 61 64 79 20 75 6e |t was al|ready un|
|00004300| 64 6f 6e 65 20 72 65 63 | 65 6e 74 6c 79 2e 0a 43 |done rec|ently..C|
|00004310| 61 6c 6c 20 60 75 6e 64 | 6f 2d 73 74 61 72 74 27 |all `und|o-start'|
|00004320| 20 74 6f 20 67 65 74 20 | 72 65 61 64 79 20 74 6f | to get |ready to|
|00004330| 20 75 6e 64 6f 20 72 65 | 63 65 6e 74 20 63 68 61 | undo re|cent cha|
|00004340| 6e 67 65 73 2c 0a 74 68 | 65 6e 20 63 61 6c 6c 20 |nges,.th|en call |
|00004350| 60 75 6e 64 6f 2d 6d 6f | 72 65 27 20 6f 6e 65 20 |`undo-mo|re' one |
|00004360| 6f 72 20 6d 6f 72 65 20 | 74 69 6d 65 73 20 74 6f |or more |times to|
|00004370| 20 75 6e 64 6f 20 74 68 | 65 6d 2e 1f 0a 28 64 65 | undo th|em...(de|
|00004380| 66 61 6c 69 61 73 20 27 | 75 6e 64 6f 2d 6d 6f 72 |falias '|undo-mor|
|00004390| 65 20 23 5b 28 63 6f 75 | 6e 74 29 20 22 08 84 08 |e #[(cou|nt) "...|
|000043a0| 00 c1 c2 21 88 c3 5c 66 | 08 5c 22 89 10 87 22 20 |...!..\f|.\"..." |
|000043b0| 5b 70 65 6e 64 69 6e 67 | 2d 75 6e 64 6f 2d 6c 69 |[pending|-undo-li|
|000043c0| 73 74 20 65 72 72 6f 72 | 20 22 4e 6f 20 66 75 72 |st error| "No fur|
|000043d0| 74 68 65 72 20 75 6e 64 | 6f 20 69 6e 66 6f 72 6d |ther und|o inform|
|000043e0| 61 74 69 6f 6e 22 20 70 | 72 69 6d 69 74 69 76 65 |ation" p|rimitive|
|000043f0| 2d 75 6e 64 6f 20 63 6f | 75 6e 74 5d 20 33 20 28 |-undo co|unt] 3 (|
|00004400| 23 24 20 2e 20 31 37 30 | 39 38 29 5d 29 0a 23 40 |#$ . 170|98)]).#@|
|00004410| 35 38 20 48 69 73 74 6f | 72 79 20 6c 69 73 74 20 |58 Histo|ry list |
|00004420| 66 6f 72 20 73 6f 6d 65 | 20 63 6f 6d 6d 61 6e 64 |for some| command|
|00004430| 73 20 74 68 61 74 20 72 | 65 61 64 20 73 68 65 6c |s that r|ead shel|
|00004440| 6c 20 63 6f 6d 6d 61 6e | 64 73 2e 1f 0a 28 64 65 |l comman|ds...(de|
|00004450| 66 76 61 72 20 73 68 65 | 6c 6c 2d 63 6f 6d 6d 61 |fvar she|ll-comma|
|00004460| 6e 64 2d 68 69 73 74 6f | 72 79 20 6e 69 6c 20 28 |nd-histo|ry nil (|
|00004470| 23 24 20 2e 20 31 37 34 | 32 37 29 29 0a 23 40 36 |#$ . 174|27)).#@6|
|00004480| 36 20 53 77 69 74 63 68 | 20 75 73 65 64 20 74 6f |6 Switch| used to|
|00004490| 20 68 61 76 65 20 74 68 | 65 20 73 68 65 6c 6c 20 | have th|e shell |
|000044a0| 65 78 65 63 75 74 65 20 | 69 74 73 20 63 6f 6d 6d |execute |its comm|
|000044b0| 61 6e 64 20 6c 69 6e 65 | 20 61 72 67 75 6d 65 6e |and line| argumen|
|000044c0| 74 2e 1f 0a 28 64 65 66 | 76 61 72 20 73 68 65 6c |t...(def|var shel|
|000044d0| 6c 2d 63 6f 6d 6d 61 6e | 64 2d 73 77 69 74 63 68 |l-comman|d-switch|
|000044e0| 20 22 2d 63 22 20 28 23 | 24 20 2e 20 31 37 35 33 | "-c" (#|$ . 1753|
|000044f0| 38 29 29 0a 23 40 39 39 | 31 20 45 78 65 63 75 74 |8)).#@99|1 Execut|
|00004500| 65 20 73 74 72 69 6e 67 | 20 43 4f 4d 4d 41 4e 44 |e string| COMMAND|
|00004510| 20 69 6e 20 69 6e 66 65 | 72 69 6f 72 20 73 68 65 | in infe|rior she|
|00004520| 6c 6c 3b 20 64 69 73 70 | 6c 61 79 20 6f 75 74 70 |ll; disp|lay outp|
|00004530| 75 74 2c 20 69 66 20 61 | 6e 79 2e 0a 0a 49 66 20 |ut, if a|ny...If |
|00004540| 43 4f 4d 4d 41 4e 44 20 | 65 6e 64 73 20 69 6e 20 |COMMAND |ends in |
|00004550| 61 6d 70 65 72 73 61 6e | 64 2c 20 65 78 65 63 75 |ampersan|d, execu|
|00004560| 74 65 20 69 74 20 61 73 | 79 6e 63 68 72 6f 6e 6f |te it as|ynchrono|
|00004570| 75 73 6c 79 2e 0a 54 68 | 65 20 6f 75 74 70 75 74 |usly..Th|e output|
|00004580| 20 61 70 70 65 61 72 73 | 20 69 6e 20 74 68 65 20 | appears| in the |
|00004590| 62 75 66 66 65 72 20 60 | 2a 41 73 79 6e 63 20 53 |buffer `|*Async S|
|000045a0| 68 65 6c 6c 20 43 6f 6d | 6d 61 6e 64 2a 27 2e 0a |hell Com|mand*'..|
|000045b0| 54 68 61 74 20 62 75 66 | 66 65 72 20 69 73 20 69 |That buf|fer is i|
|000045c0| 6e 20 73 68 65 6c 6c 20 | 6d 6f 64 65 2e 0a 0a 4f |n shell |mode...O|
|000045d0| 74 68 65 72 77 69 73 65 | 2c 20 43 4f 4d 4d 41 4e |therwise|, COMMAN|
|000045e0| 44 20 69 73 20 65 78 65 | 63 75 74 65 64 20 73 79 |D is exe|cuted sy|
|000045f0| 6e 63 68 72 6f 6e 6f 75 | 73 6c 79 2e 20 20 54 68 |nchronou|sly.  Th|
|00004600| 65 20 6f 75 74 70 75 74 | 20 61 70 70 65 61 72 73 |e output| appears|
|00004610| 20 69 6e 20 74 68 65 0a | 62 75 66 66 65 72 20 60 | in the.|buffer `|
|00004620| 2a 53 68 65 6c 6c 20 43 | 6f 6d 6d 61 6e 64 20 4f |*Shell C|ommand O|
|00004630| 75 74 70 75 74 2a 27 2e | 0a 49 66 20 74 68 65 20 |utput*'.|.If the |
|00004640| 6f 75 74 70 75 74 20 69 | 73 20 6f 6e 65 20 6c 69 |output i|s one li|
|00004650| 6e 65 2c 20 69 74 20 69 | 73 20 64 69 73 70 6c 61 |ne, it i|s displa|
|00004660| 79 65 64 20 69 6e 20 74 | 68 65 20 65 63 68 6f 20 |yed in t|he echo |
|00004670| 61 72 65 61 20 2a 61 73 | 20 77 65 6c 6c 2a 2c 0a |area *as| well*,.|
|00004680| 62 75 74 20 69 74 20 69 | 73 20 6e 6f 6e 65 74 68 |but it i|s noneth|
|00004690| 65 6c 65 73 73 20 61 76 | 61 69 6c 61 62 6c 65 20 |eless av|ailable |
|000046a0| 69 6e 20 62 75 66 66 65 | 72 20 60 2a 53 68 65 6c |in buffe|r `*Shel|
|000046b0| 6c 20 43 6f 6d 6d 61 6e | 64 20 4f 75 74 70 75 74 |l Comman|d Output|
|000046c0| 2a 27 2c 0a 65 76 65 6e | 20 74 68 6f 75 67 68 20 |*',.even| though |
|000046d0| 74 68 61 74 20 62 75 66 | 66 65 72 20 69 73 20 6e |that buf|fer is n|
|000046e0| 6f 74 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |ot autom|atically|
|000046f0| 20 64 69 73 70 6c 61 79 | 65 64 2e 0a 49 66 20 74 | display|ed..If t|
|00004700| 68 65 72 65 20 69 73 20 | 6e 6f 20 6f 75 74 70 75 |here is |no outpu|
|00004710| 74 2c 20 6f 72 20 69 66 | 20 6f 75 74 70 75 74 20 |t, or if| output |
|00004720| 69 73 20 69 6e 73 65 72 | 74 65 64 20 69 6e 20 74 |is inser|ted in t|
|00004730| 68 65 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |he curre|nt buffe|
|00004740| 72 2c 0a 74 68 65 6e 20 | 60 2a 53 68 65 6c 6c 20 |r,.then |`*Shell |
|00004750| 43 6f 6d 6d 61 6e 64 20 | 4f 75 74 70 75 74 2a 27 |Command |Output*'|
|00004760| 20 69 73 20 64 65 6c 65 | 74 65 64 2e 0a 0a 54 68 | is dele|ted...Th|
|00004770| 65 20 6f 70 74 69 6f 6e | 61 6c 20 73 65 63 6f 6e |e option|al secon|
|00004780| 64 20 61 72 67 75 6d 65 | 6e 74 20 4f 55 54 50 55 |d argume|nt OUTPU|
|00004790| 54 2d 42 55 46 46 45 52 | 2c 20 69 66 20 6e 6f 6e |T-BUFFER|, if non|
|000047a0| 2d 6e 69 6c 2c 0a 73 61 | 79 73 20 74 6f 20 70 75 |-nil,.sa|ys to pu|
|000047b0| 74 20 74 68 65 20 6f 75 | 74 70 75 74 20 69 6e 20 |t the ou|tput in |
|000047c0| 73 6f 6d 65 20 6f 74 68 | 65 72 20 62 75 66 66 65 |some oth|er buffe|
|000047d0| 72 2e 0a 49 66 20 4f 55 | 54 50 55 54 2d 42 55 46 |r..If OU|TPUT-BUF|
|000047e0| 46 45 52 20 69 73 20 61 | 20 62 75 66 66 65 72 20 |FER is a| buffer |
|000047f0| 6f 72 20 62 75 66 66 65 | 72 20 6e 61 6d 65 2c 20 |or buffe|r name, |
|00004800| 70 75 74 20 74 68 65 20 | 6f 75 74 70 75 74 20 74 |put the |output t|
|00004810| 68 65 72 65 2e 0a 49 66 | 20 4f 55 54 50 55 54 2d |here..If| OUTPUT-|
|00004820| 42 55 46 46 45 52 20 69 | 73 20 6e 6f 74 20 61 20 |BUFFER i|s not a |
|00004830| 62 75 66 66 65 72 20 61 | 6e 64 20 6e 6f 74 20 6e |buffer a|nd not n|
|00004840| 69 6c 2c 0a 69 6e 73 65 | 72 74 20 6f 75 74 70 75 |il,.inse|rt outpu|
|00004850| 74 20 69 6e 20 63 75 72 | 72 65 6e 74 20 62 75 66 |t in cur|rent buf|
|00004860| 66 65 72 2e 20 20 28 54 | 68 69 73 20 63 61 6e 6e |fer.  (T|his cann|
|00004870| 6f 74 20 62 65 20 64 6f | 6e 65 20 61 73 79 6e 63 |ot be do|ne async|
|00004880| 68 72 6f 6e 6f 75 73 6c | 79 2e 29 0a 49 6e 20 65 |hronousl|y.).In e|
|00004890| 69 74 68 65 72 20 63 61 | 73 65 2c 20 74 68 65 20 |ither ca|se, the |
|000048a0| 6f 75 74 70 75 74 20 69 | 73 20 69 6e 73 65 72 74 |output i|s insert|
|000048b0| 65 64 20 61 66 74 65 72 | 20 70 6f 69 6e 74 20 28 |ed after| point (|
|000048c0| 6c 65 61 76 69 6e 67 20 | 6d 61 72 6b 20 61 66 74 |leaving |mark aft|
|000048d0| 65 72 20 69 74 29 2e 1f | 0a 28 64 65 66 61 6c 69 |er it)..|.(defali|
|000048e0| 61 73 20 27 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |as 'shel|l-comman|
|000048f0| 64 20 23 5b 28 63 6f 6d | 6d 61 6e 64 20 26 6f 70 |d #[(com|mand &op|
|00004900| 74 69 6f 6e 61 6c 20 6f | 75 74 70 75 74 2d 62 75 |tional o|utput-bu|
|00004910| 66 66 65 72 29 20 22 c0 | c1 5c 6e 21 c3 5c 22 89 |ffer) ".|.\n!.\".|
|00004920| 1c 83 14 00 5c 66 c3 0d | 0e 06 23 82 bd 00 0e 06 |....\f..|..#.....|
|00004930| 83 45 00 c7 0e 06 21 84 | 45 00 0e 06 3b 84 45 00 |.E....!.|E...;.E.|
|00004940| c8 20 88 c9 20 88 ca 0e | 0b cc cd cc 0e 0e 0d 26 |. .. ...|.......&|
|00004950| 06 88 cf cd 21 d0 20 60 | 70 93 88 62 82 bd 00 d1 |....!. `|p..b....|
|00004960| 20 1e 12 d3 8e d4 d5 0d | 5c 22 83 b6 00 d6 0e 06 | .......|\"......|
|00004970| 86 59 00 d7 21 5c 6e cc | 1e 18 1e 19 1e 1a 0d db |.Y..!\n.|........|
|00004980| 89 94 4f 15 dc 0e 1a 21 | 89 16 18 83 84 00 dd de |..O....!|........|
|00004990| 21 83 80 00 df 0e 18 21 | 88 82 84 00 e0 e1 21 88 |!......!|......!.|
|000049a0| 8a 0e 1a 71 88 cc 16 5c | 22 e3 20 88 e4 0e 1a 21 |...q...\|". ....!|
|000049b0| 88 0e 19 12 e5 e6 0e 1a | 0e 0b 0e 0e 0d 25 16 18 |........|.....%..|
|000049c0| e7 16 28 e9 ea 21 88 eb | 20 88 ec 0e 18 ed 5c 22 |..(..!..| .....\"|
|000049d0| 2c 82 bc 00 ee 60 60 0d | cc 24 2a 29 87 22 20 5b |,....``.|.$*)." [|
|000049e0| 66 69 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 68 |find-fil|e-name-h|
|000049f0| 61 6e 64 6c 65 72 20 64 | 69 72 65 63 74 6f 72 79 |andler d|irectory|
|00004a00| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 64 65 66 61 75 |-file-na|me defau|
|00004a10| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 20 73 68 65 |lt-direc|tory she|
|00004a20| 6c 6c 2d 63 6f 6d 6d 61 | 6e 64 20 68 61 6e 64 6c |ll-comma|nd handl|
|00004a30| 65 72 20 63 6f 6d 6d 61 | 6e 64 20 6f 75 74 70 75 |er comma|nd outpu|
|00004a40| 74 2d 62 75 66 66 65 72 | 20 62 75 66 66 65 72 70 |t-buffer| bufferp|
|00004a50| 20 62 61 72 66 2d 69 66 | 2d 62 75 66 66 65 72 2d | barf-if|-buffer-|
|00004a60| 72 65 61 64 2d 6f 6e 6c | 79 20 70 75 73 68 2d 6d |read-onl|y push-m|
|00004a70| 61 72 6b 20 63 61 6c 6c | 2d 70 72 6f 63 65 73 73 |ark call|-process|
|00004a80| 20 73 68 65 6c 6c 2d 66 | 69 6c 65 2d 6e 61 6d 65 | shell-f|ile-name|
|00004a90| 20 6e 69 6c 20 74 20 73 | 68 65 6c 6c 2d 63 6f 6d | nil t s|hell-com|
|00004aa0| 6d 61 6e 64 2d 73 77 69 | 74 63 68 20 6d 61 72 6b |mand-swi|tch mark|
|00004ab0| 20 6d 61 72 6b 2d 6d 61 | 72 6b 65 72 20 6d 61 74 | mark-ma|rker mat|
|00004ac0| 63 68 2d 64 61 74 61 20 | 6d 61 74 63 68 2d 64 61 |ch-data |match-da|
|00004ad0| 74 61 20 28 28 73 74 6f | 72 65 2d 6d 61 74 63 68 |ta ((sto|re-match|
|00004ae0| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|00004af0| 29 29 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |)) strin|g-match |
|00004b00| 22 5b 20 09 5d 2a 26 5b | 20 09 5d 2a 24 22 20 67 |"[ .]*&[| .]*$" g|
|00004b10| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00004b20| 20 22 2a 41 73 79 6e 63 | 20 53 68 65 6c 6c 20 43 | "*Async| Shell C|
|00004b30| 6f 6d 6d 61 6e 64 2a 22 | 20 70 72 6f 63 20 64 69 |ommand*"| proc di|
|00004b40| 72 65 63 74 6f 72 79 20 | 62 75 66 66 65 72 20 30 |rectory |buffer 0|
|00004b50| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 70 72 6f 63 | get-buf|fer-proc|
|00004b60| 65 73 73 20 79 65 73 2d | 6f 72 2d 6e 6f 2d 70 20 |ess yes-|or-no-p |
|00004b70| 22 41 20 63 6f 6d 6d 61 | 6e 64 20 69 73 20 72 75 |"A comma|nd is ru|
|00004b80| 6e 6e 69 6e 67 2e 20 20 | 4b 69 6c 6c 20 69 74 3f |nning.  |Kill it?|
|00004b90| 20 22 20 6b 69 6c 6c 2d | 70 72 6f 63 65 73 73 20 | " kill-|process |
|00004ba0| 65 72 72 6f 72 20 22 53 | 68 65 6c 6c 20 63 6f 6d |error "S|hell com|
|00004bb0| 6d 61 6e 64 20 69 6e 20 | 70 72 6f 67 72 65 73 73 |mand in |progress|
|00004bc0| 22 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |" buffer|-read-on|
|00004bd0| 6c 79 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |ly erase|-buffer |
|00004be0| 64 69 73 70 6c 61 79 2d | 62 75 66 66 65 72 20 73 |display-|buffer s|
|00004bf0| 74 61 72 74 2d 70 72 6f | 63 65 73 73 20 22 53 68 |tart-pro|cess "Sh|
|00004c00| 65 6c 6c 22 20 28 22 3a | 25 73 22 29 20 6d 6f 64 |ell" (":|%s") mod|
|00004c10| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 20 72 |e-line-p|rocess r|
|00004c20| 65 71 75 69 72 65 20 73 | 68 65 6c 6c 20 73 68 65 |equire s|hell she|
|00004c30| 6c 6c 2d 6d 6f 64 65 20 | 73 65 74 2d 70 72 6f 63 |ll-mode |set-proc|
|00004c40| 65 73 73 2d 73 65 6e 74 | 69 6e 65 6c 20 73 68 65 |ess-sent|inel she|
|00004c50| 6c 6c 2d 63 6f 6d 6d 61 | 6e 64 2d 73 65 6e 74 69 |ll-comma|nd-senti|
|00004c60| 6e 65 6c 20 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |nel shel|l-comman|
|00004c70| 64 2d 6f 6e 2d 72 65 67 | 69 6f 6e 5d 20 38 20 28 |d-on-reg|ion] 8 (|
|00004c80| 23 24 20 2e 20 31 37 36 | 35 38 29 20 28 6c 69 73 |#$ . 176|58) (lis|
|00004c90| 74 20 28 72 65 61 64 2d | 66 72 6f 6d 2d 6d 69 6e |t (read-|from-min|
|00004ca0| 69 62 75 66 66 65 72 20 | 22 53 68 65 6c 6c 20 63 |ibuffer |"Shell c|
|00004cb0| 6f 6d 6d 61 6e 64 3a 20 | 22 20 6e 69 6c 20 6e 69 |ommand: |" nil ni|
|00004cc0| 6c 20 6e 69 6c 20 28 71 | 75 6f 74 65 20 73 68 65 |l nil (q|uote she|
|00004cd0| 6c 6c 2d 63 6f 6d 6d 61 | 6e 64 2d 68 69 73 74 6f |ll-comma|nd-histo|
|00004ce0| 72 79 29 29 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |ry)) cur|rent-pre|
|00004cf0| 66 69 78 2d 61 72 67 29 | 5d 29 0a 28 64 65 66 61 |fix-arg)|]).(defa|
|00004d00| 6c 69 61 73 20 27 73 68 | 65 6c 6c 2d 63 6f 6d 6d |lias 'sh|ell-comm|
|00004d10| 61 6e 64 2d 73 65 6e 74 | 69 6e 65 6c 20 23 5b 28 |and-sent|inel #[(|
|00004d20| 70 72 6f 63 65 73 73 20 | 73 69 67 6e 61 6c 29 20 |process |signal) |
|00004d30| 22 c0 09 21 c2 3e 85 16 | 00 c3 c4 c5 09 21 41 41 |"..!.>..|.....!AA|
|00004d40| 40 0e 06 c7 c8 4f 23 87 | 22 20 5b 70 72 6f 63 65 |@....O#.|" [proce|
|00004d50| 73 73 2d 73 74 61 74 75 | 73 20 70 72 6f 63 65 73 |ss-statu|s proces|
|00004d60| 73 20 28 65 78 69 74 20 | 73 69 67 6e 61 6c 29 20 |s (exit |signal) |
|00004d70| 6d 65 73 73 61 67 65 20 | 22 25 73 3a 20 25 73 2e |message |"%s: %s.|
|00004d80| 22 20 70 72 6f 63 65 73 | 73 2d 63 6f 6d 6d 61 6e |" proces|s-comman|
|00004d90| 64 20 73 69 67 6e 61 6c | 20 30 20 2d 31 5d 20 36 |d signal| 0 -1] 6|
|00004da0| 5d 29 0a 23 40 31 30 31 | 37 20 45 78 65 63 75 74 |]).#@101|7 Execut|
|00004db0| 65 20 73 74 72 69 6e 67 | 20 43 4f 4d 4d 41 4e 44 |e string| COMMAND|
|00004dc0| 20 69 6e 20 69 6e 66 65 | 72 69 6f 72 20 73 68 65 | in infe|rior she|
|00004dd0| 6c 6c 20 77 69 74 68 20 | 72 65 67 69 6f 6e 20 61 |ll with |region a|
|00004de0| 73 20 69 6e 70 75 74 2e | 0a 4e 6f 72 6d 61 6c 6c |s input.|.Normall|
|00004df0| 79 20 64 69 73 70 6c 61 | 79 20 6f 75 74 70 75 74 |y displa|y output|
|00004e00| 20 28 69 66 20 61 6e 79 | 29 20 69 6e 20 74 65 6d | (if any|) in tem|
|00004e10| 70 20 62 75 66 66 65 72 | 20 60 2a 53 68 65 6c 6c |p buffer| `*Shell|
|00004e20| 20 43 6f 6d 6d 61 6e 64 | 20 4f 75 74 70 75 74 2a | Command| Output*|
|00004e30| 27 3b 0a 50 72 65 66 69 | 78 20 61 72 67 20 6d 65 |';.Prefi|x arg me|
|00004e40| 61 6e 73 20 72 65 70 6c | 61 63 65 20 74 68 65 20 |ans repl|ace the |
|00004e50| 72 65 67 69 6f 6e 20 77 | 69 74 68 20 69 74 2e 0a |region w|ith it..|
|00004e60| 0a 54 68 65 20 6e 6f 6e | 69 6e 74 65 72 61 63 74 |.The non|interact|
|00004e70| 69 76 65 20 61 72 67 75 | 6d 65 6e 74 73 20 61 72 |ive argu|ments ar|
|00004e80| 65 20 53 54 41 52 54 2c | 20 45 4e 44 2c 20 43 4f |e START,| END, CO|
|00004e90| 4d 4d 41 4e 44 2c 20 4f | 55 54 50 55 54 2d 42 55 |MMAND, O|UTPUT-BU|
|00004ea0| 46 46 45 52 2c 20 52 45 | 50 4c 41 43 45 2e 0a 49 |FFER, RE|PLACE..I|
|00004eb0| 66 20 52 45 50 4c 41 43 | 45 20 69 73 20 6e 6f 6e |f REPLAC|E is non|
|00004ec0| 2d 6e 69 6c 2c 20 74 68 | 61 74 20 6d 65 61 6e 73 |-nil, th|at means|
|00004ed0| 20 69 6e 73 65 72 74 20 | 74 68 65 20 6f 75 74 70 | insert |the outp|
|00004ee0| 75 74 0a 69 6e 20 70 6c | 61 63 65 20 6f 66 20 74 |ut.in pl|ace of t|
|00004ef0| 65 78 74 20 66 72 6f 6d | 20 53 54 41 52 54 20 74 |ext from| START t|
|00004f00| 6f 20 45 4e 44 2c 20 70 | 75 74 74 69 6e 67 20 70 |o END, p|utting p|
|00004f10| 6f 69 6e 74 20 61 6e 64 | 20 6d 61 72 6b 20 61 72 |oint and| mark ar|
|00004f20| 6f 75 6e 64 20 69 74 2e | 0a 0a 49 66 20 74 68 65 |ound it.|..If the|
|00004f30| 20 6f 75 74 70 75 74 20 | 69 73 20 6f 6e 65 20 6c | output |is one l|
|00004f40| 69 6e 65 2c 20 69 74 20 | 69 73 20 64 69 73 70 6c |ine, it |is displ|
|00004f50| 61 79 65 64 20 69 6e 20 | 74 68 65 20 65 63 68 6f |ayed in |the echo|
|00004f60| 20 61 72 65 61 2c 0a 62 | 75 74 20 69 74 20 69 73 | area,.b|ut it is|
|00004f70| 20 6e 6f 6e 65 74 68 65 | 6c 65 73 73 20 61 76 61 | nonethe|less ava|
|00004f80| 69 6c 61 62 6c 65 20 69 | 6e 20 62 75 66 66 65 72 |ilable i|n buffer|
|00004f90| 20 60 2a 53 68 65 6c 6c | 20 43 6f 6d 6d 61 6e 64 | `*Shell| Command|
|00004fa0| 20 4f 75 74 70 75 74 2a | 27 0a 65 76 65 6e 20 74 | Output*|'.even t|
|00004fb0| 68 6f 75 67 68 20 74 68 | 61 74 20 62 75 66 66 65 |hough th|at buffe|
|00004fc0| 72 20 69 73 20 6e 6f 74 | 20 61 75 74 6f 6d 61 74 |r is not| automat|
|00004fd0| 69 63 61 6c 6c 79 20 64 | 69 73 70 6c 61 79 65 64 |ically d|isplayed|
|00004fe0| 2e 0a 49 66 20 74 68 65 | 72 65 20 69 73 20 6e 6f |..If the|re is no|
|00004ff0| 20 6f 75 74 70 75 74 2c | 20 6f 72 20 69 66 20 6f | output,| or if o|
|00005000| 75 74 70 75 74 20 69 73 | 20 69 6e 73 65 72 74 65 |utput is| inserte|
|00005010| 64 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |d in the| current|
|00005020| 20 62 75 66 66 65 72 2c | 0a 74 68 65 6e 20 60 2a | buffer,|.then `*|
|00005030| 53 68 65 6c 6c 20 43 6f | 6d 6d 61 6e 64 20 4f 75 |Shell Co|mmand Ou|
|00005040| 74 70 75 74 2a 27 20 69 | 73 20 64 65 6c 65 74 65 |tput*' i|s delete|
|00005050| 64 2e 0a 0a 49 66 20 74 | 68 65 20 6f 70 74 69 6f |d...If t|he optio|
|00005060| 6e 61 6c 20 66 6f 75 72 | 74 68 20 61 72 67 75 6d |nal four|th argum|
|00005070| 65 6e 74 20 4f 55 54 50 | 55 54 2d 42 55 46 46 45 |ent OUTP|UT-BUFFE|
|00005080| 52 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2c 0a 74 68 |R is non|-nil,.th|
|00005090| 61 74 20 73 61 79 73 20 | 74 6f 20 70 75 74 20 74 |at says |to put t|
|000050a0| 68 65 20 6f 75 74 70 75 | 74 20 69 6e 20 73 6f 6d |he outpu|t in som|
|000050b0| 65 20 6f 74 68 65 72 20 | 62 75 66 66 65 72 2e 0a |e other |buffer..|
|000050c0| 49 66 20 4f 55 54 50 55 | 54 2d 42 55 46 46 45 52 |If OUTPU|T-BUFFER|
|000050d0| 20 69 73 20 61 20 62 75 | 66 66 65 72 20 6f 72 20 | is a bu|ffer or |
|000050e0| 62 75 66 66 65 72 20 6e | 61 6d 65 2c 20 70 75 74 |buffer n|ame, put|
|000050f0| 20 74 68 65 20 6f 75 74 | 70 75 74 20 74 68 65 72 | the out|put ther|
|00005100| 65 2e 0a 49 66 20 4f 55 | 54 50 55 54 2d 42 55 46 |e..If OU|TPUT-BUF|
|00005110| 46 45 52 20 69 73 20 6e | 6f 74 20 61 20 62 75 66 |FER is n|ot a buf|
|00005120| 66 65 72 20 61 6e 64 20 | 6e 6f 74 20 6e 69 6c 2c |fer and |not nil,|
|00005130| 0a 69 6e 73 65 72 74 20 | 6f 75 74 70 75 74 20 69 |.insert |output i|
|00005140| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|00005150| 66 66 65 72 2e 0a 49 6e | 20 65 69 74 68 65 72 20 |ffer..In| either |
|00005160| 63 61 73 65 2c 20 74 68 | 65 20 6f 75 74 70 75 74 |case, th|e output|
|00005170| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 61 66 74 | is inse|rted aft|
|00005180| 65 72 20 70 6f 69 6e 74 | 20 28 6c 65 61 76 69 6e |er point| (leavin|
|00005190| 67 20 6d 61 72 6b 20 61 | 66 74 65 72 20 69 74 29 |g mark a|fter it)|
|000051a0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 68 |...(defa|lias 'sh|
|000051b0| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 2d 6f 6e 2d 72 |ell-comm|and-on-r|
|000051c0| 65 67 69 6f 6e 20 23 5b | 28 73 74 61 72 74 20 65 |egion #[|(start e|
|000051d0| 6e 64 20 63 6f 6d 6d 61 | 6e 64 20 26 6f 70 74 69 |nd comma|nd &opti|
|000051e0| 6f 6e 61 6c 20 6f 75 74 | 70 75 74 2d 62 75 66 66 |onal out|put-buff|
|000051f0| 65 72 20 72 65 70 6c 61 | 63 65 29 20 22 08 84 1b |er repla|ce) "...|
|00005200| 00 09 83 13 00 c2 09 21 | 84 13 00 09 3b 83 1b 00 |.......!|....;...|
|00005210| c3 70 21 c4 9a 83 62 00 | 08 85 23 00 0d 0e 06 57 |.p!...b.|..#....W|
|00005220| 1e 07 0d 62 88 08 83 2f | 00 c8 20 88 c9 0d 0e 06 |...b.../|.. .....|
|00005230| 0e 5c 6e cb 89 cc 0e 0d | 0e 0e 26 08 88 cf c4 21 |.\n.....|..&....!|
|00005240| 89 1e 10 83 54 00 0e 10 | 70 3d 84 54 00 d1 0e 10 |....T...|p=.T....|
|00005250| 21 88 29 08 85 60 00 0e | 07 85 60 00 d2 20 29 87 |!.)..`..|..`.. ).|
|00005260| d3 09 86 68 00 c4 21 cc | 1e 14 1e 15 d6 8e 0e 15 |...h..!.|........|
|00005270| 70 3d 83 9e 00 cc 16 17 | 0d 0e 06 5d 64 7c 88 65 |p=......|...]d|.e|
|00005280| 0d 0e 06 5e 7c 88 c9 65 | 64 0e 5c 6e cb 89 cc 0e |...^|..e|d.\n....|
|00005290| 0d 0e 0e 26 08 88 cb 89 | 16 14 82 bf 00 8a 0e 15 |...&....|........|
|000052a0| 71 88 cc 16 17 d8 20 88 | 29 c9 0d 0e 06 0e 5c 6e |q..... .|).....\n|
|000052b0| cc 0e 15 cc 0e 0d 0e 0e | 26 08 88 cb 89 16 14 2b |........|&......+|
|000052c0| 87 22 20 5b 72 65 70 6c | 61 63 65 20 6f 75 74 70 |." [repl|ace outp|
|000052d0| 75 74 2d 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |ut-buffe|r buffer|
|000052e0| 70 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 22 2a |p buffer|-name "*|
|000052f0| 53 68 65 6c 6c 20 43 6f | 6d 6d 61 6e 64 20 4f 75 |Shell Co|mmand Ou|
|00005300| 74 70 75 74 2a 22 20 73 | 74 61 72 74 20 65 6e 64 |tput*" s|tart end|
|00005310| 20 73 77 61 70 20 70 75 | 73 68 2d 6d 61 72 6b 20 | swap pu|sh-mark |
|00005320| 63 61 6c 6c 2d 70 72 6f | 63 65 73 73 2d 72 65 67 |call-pro|cess-reg|
|00005330| 69 6f 6e 20 73 68 65 6c | 6c 2d 66 69 6c 65 2d 6e |ion shel|l-file-n|
|00005340| 61 6d 65 20 74 20 6e 69 | 6c 20 73 68 65 6c 6c 2d |ame t ni|l shell-|
|00005350| 63 6f 6d 6d 61 6e 64 2d | 73 77 69 74 63 68 20 63 |command-|switch c|
|00005360| 6f 6d 6d 61 6e 64 20 67 | 65 74 2d 62 75 66 66 65 |ommand g|et-buffe|
|00005370| 72 20 73 68 65 6c 6c 2d | 62 75 66 66 65 72 20 6b |r shell-|buffer k|
|00005380| 69 6c 6c 2d 62 75 66 66 | 65 72 20 65 78 63 68 61 |ill-buff|er excha|
|00005390| 6e 67 65 2d 70 6f 69 6e | 74 2d 61 6e 64 2d 6d 61 |nge-poin|t-and-ma|
|000053a0| 72 6b 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |rk get-b|uffer-cr|
|000053b0| 65 61 74 65 20 73 75 63 | 63 65 73 73 20 62 75 66 |eate suc|cess buf|
|000053c0| 66 65 72 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |fer ((by|te-code |
|000053d0| 22 8a 08 71 88 c1 20 c2 | 55 83 0f 00 c2 82 13 00 |"..q.. .|U.......|
|000053e0| c3 65 64 5c 22 29 89 1c | c2 55 83 2a 00 0d 83 23 |.ed\")..|.U.*...#|
|000053f0| 00 c6 c7 21 88 c8 08 21 | 88 82 55 00 0d 83 49 00 |...!...!|..U...I.|
|00005400| 5c 66 c9 55 83 49 00 c6 | ca 8a 08 71 88 65 62 88 |\f.U.I..|...q.eb.|
|00005410| 60 cb 7f 88 60 7b 29 5c | 22 88 82 55 00 8a 08 71 |`...`{)\|"..U...q|
|00005420| 88 65 62 88 29 cc 08 21 | 88 29 cb 87 22 20 5b 62 |.eb.)..!|.).." [b|
|00005430| 75 66 66 65 72 20 62 75 | 66 66 65 72 2d 73 69 7a |uffer bu|ffer-siz|
|00005440| 65 20 30 20 63 6f 75 6e | 74 2d 6c 69 6e 65 73 20 |e 0 coun|t-lines |
|00005450| 6c 69 6e 65 73 20 73 75 | 63 63 65 73 73 20 6d 65 |lines su|ccess me|
|00005460| 73 73 61 67 65 20 22 28 | 53 68 65 6c 6c 20 63 6f |ssage "(|Shell co|
|00005470| 6d 6d 61 6e 64 20 63 6f | 6d 70 6c 65 74 65 64 20 |mmand co|mpleted |
|00005480| 77 69 74 68 20 6e 6f 20 | 6f 75 74 70 75 74 29 22 |with no |output)"|
|00005490| 20 6b 69 6c 6c 2d 62 75 | 66 66 65 72 20 31 20 22 | kill-bu|ffer 1 "|
|000054a0| 25 73 22 20 6e 69 6c 20 | 64 69 73 70 6c 61 79 2d |%s" nil |display-|
|000054b0| 62 75 66 66 65 72 5d 20 | 35 29 29 20 62 75 66 66 |buffer] |5)) buff|
|000054c0| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 65 72 61 |er-read-|only era|
|000054d0| 73 65 2d 62 75 66 66 65 | 72 5d 20 31 30 20 28 23 |se-buffe|r] 10 (#|
|000054e0| 24 20 2e 20 31 39 38 38 | 32 29 20 28 6c 65 74 20 |$ . 1988|2) (let |
|000054f0| 28 28 73 74 72 69 6e 67 | 20 28 72 65 61 64 2d 66 |((string| (read-f|
|00005500| 72 6f 6d 2d 6d 69 6e 69 | 62 75 66 66 65 72 20 22 |rom-mini|buffer "|
|00005510| 53 68 65 6c 6c 20 63 6f | 6d 6d 61 6e 64 20 6f 6e |Shell co|mmand on|
|00005520| 20 72 65 67 69 6f 6e 3a | 20 22 20 6e 69 6c 20 6e | region:| " nil n|
|00005530| 69 6c 20 6e 69 6c 20 28 | 71 75 6f 74 65 20 73 68 |il nil (|quote sh|
|00005540| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |ell-comm|and-hist|
|00005550| 6f 72 79 29 29 29 29 20 | 28 6c 69 73 74 20 28 72 |ory)))) |(list (r|
|00005560| 65 67 69 6f 6e 2d 62 65 | 67 69 6e 6e 69 6e 67 29 |egion-be|ginning)|
|00005570| 20 28 72 65 67 69 6f 6e | 2d 65 6e 64 29 20 73 74 | (region|-end) st|
|00005580| 72 69 6e 67 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |ring cur|rent-pre|
|00005590| 66 69 78 2d 61 72 67 20 | 63 75 72 72 65 6e 74 2d |fix-arg |current-|
|000055a0| 70 72 65 66 69 78 2d 61 | 72 67 29 29 5d 29 0a 23 |prefix-a|rg))]).#|
|000055b0| 40 35 33 20 4b 65 79 6d | 61 70 20 75 73 65 64 20 |@53 Keym|ap used |
|000055c0| 77 68 69 6c 65 20 70 72 | 6f 63 65 73 73 69 6e 67 |while pr|ocessing|
|000055d0| 20 5c 5b 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 | \[unive|rsal-arg|
|000055e0| 75 6d 65 6e 74 5d 2e 1f | 0a 28 64 65 66 63 6f 6e |ument]..|.(defcon|
|000055f0| 73 74 20 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 |st unive|rsal-arg|
|00005600| 75 6d 65 6e 74 2d 6d 61 | 70 20 28 62 79 74 65 2d |ument-ma|p (byte-|
|00005610| 63 6f 64 65 20 22 c0 20 | 19 c2 09 c3 c4 23 88 c2 |code ". |.....#..|
|00005620| 09 c5 0e 06 c7 5c 22 c4 | 23 88 c2 09 c8 c9 23 88 |.....\".|#.....#.|
|00005630| c2 09 ca cb 23 88 c2 09 | cc cd 23 88 c2 09 ce cf |....#...|..#.....|
|00005640| 23 88 c2 09 d0 cf 23 88 | c2 09 d1 cf 23 88 c2 09 |#.....#.|....#...|
|00005650| d2 cf 23 88 c2 09 d3 cf | 23 88 c2 09 d4 cf 23 88 |..#.....|#.....#.|
|00005660| c2 09 d5 cf 23 88 c2 09 | d6 cf 23 88 c2 09 d7 cf |....#...|..#.....|
|00005670| 23 88 c2 09 d8 cf 23 88 | 09 29 87 22 20 5b 6d 61 |#.....#.|.)." [ma|
|00005680| 6b 65 2d 73 70 61 72 73 | 65 2d 6b 65 79 6d 61 70 |ke-spars|e-keymap|
|00005690| 20 6d 61 70 20 64 65 66 | 69 6e 65 2d 6b 65 79 20 | map def|ine-key |
|000056a0| 5b 74 5d 20 75 6e 69 76 | 65 72 73 61 6c 2d 61 72 |[t] univ|ersal-ar|
|000056b0| 67 75 6d 65 6e 74 2d 6f | 74 68 65 72 2d 6b 65 79 |gument-o|ther-key|
|000056c0| 20 76 65 63 74 6f 72 20 | 6d 65 74 61 2d 70 72 65 | vector |meta-pre|
|000056d0| 66 69 78 2d 63 68 61 72 | 20 74 20 5b 73 77 69 74 |fix-char| t [swit|
|000056e0| 63 68 2d 66 72 61 6d 65 | 5d 20 6e 69 6c 20 5b 32 |ch-frame|] nil [2|
|000056f0| 31 5d 20 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 |1] unive|rsal-arg|
|00005700| 75 6d 65 6e 74 2d 6d 6f | 72 65 20 5b 34 35 5d 20 |ument-mo|re [45] |
|00005710| 75 6e 69 76 65 72 73 61 | 6c 2d 61 72 67 75 6d 65 |universa|l-argume|
|00005720| 6e 74 2d 6d 69 6e 75 73 | 20 5b 34 38 5d 20 64 69 |nt-minus| [48] di|
|00005730| 67 69 74 2d 61 72 67 75 | 6d 65 6e 74 20 5b 34 39 |git-argu|ment [49|
|00005740| 5d 20 5b 35 30 5d 20 5b | 35 31 5d 20 5b 35 32 5d |] [50] [|51] [52]|
|00005750| 20 5b 35 33 5d 20 5b 35 | 34 5d 20 5b 35 35 5d 20 | [53] [5|4] [55] |
|00005760| 5b 35 36 5d 20 5b 35 37 | 5d 5d 20 35 29 20 28 23 |[56] [57|]] 5) (#|
|00005770| 24 20 2e 20 32 31 39 34 | 30 29 29 0a 23 40 31 39 |$ . 2194|0)).#@19|
|00005780| 34 20 4e 75 6d 62 65 72 | 20 6f 66 20 61 72 67 75 |4 Number| of argu|
|00005790| 6d 65 6e 74 2d 73 70 65 | 63 69 66 79 69 6e 67 20 |ment-spe|cifying |
|000057a0| 65 76 65 6e 74 73 20 72 | 65 61 64 20 62 79 20 60 |events r|ead by `|
|000057b0| 75 6e 69 76 65 72 73 61 | 6c 2d 61 72 67 75 6d 65 |universa|l-argume|
|000057c0| 6e 74 27 2e 0a 60 75 6e | 69 76 65 72 73 61 6c 2d |nt'..`un|iversal-|
|000057d0| 61 72 67 75 6d 65 6e 74 | 2d 6f 74 68 65 72 2d 6b |argument|-other-k|
|000057e0| 65 79 27 20 75 73 65 73 | 20 74 68 69 73 20 74 6f |ey' uses| this to|
|000057f0| 20 64 69 73 63 61 72 64 | 20 74 68 6f 73 65 20 65 | discard| those e|
|00005800| 76 65 6e 74 73 0a 66 72 | 6f 6d 20 28 74 68 69 73 |vents.fr|om (this|
|00005810| 2d 63 6f 6d 6d 61 6e 64 | 2d 6b 65 79 73 29 2c 20 |-command|-keys), |
|00005820| 61 6e 64 20 72 65 72 65 | 61 64 20 6f 6e 6c 79 20 |and rere|ad only |
|00005830| 74 68 65 20 66 69 6e 61 | 6c 20 63 6f 6d 6d 61 6e |the fina|l comman|
|00005840| 64 2e 1f 0a 28 64 65 66 | 76 61 72 20 75 6e 69 76 |d...(def|var univ|
|00005850| 65 72 73 61 6c 2d 61 72 | 67 75 6d 65 6e 74 2d 6e |ersal-ar|gument-n|
|00005860| 75 6d 2d 65 76 65 6e 74 | 73 20 6e 69 6c 20 28 23 |um-event|s nil (#|
|00005870| 24 20 2e 20 32 32 34 30 | 32 29 29 0a 23 40 33 38 |$ . 2240|2)).#@38|
|00005880| 39 20 42 65 67 69 6e 20 | 61 20 6e 75 6d 65 72 69 |9 Begin |a numeri|
|00005890| 63 20 61 72 67 75 6d 65 | 6e 74 20 66 6f 72 20 74 |c argume|nt for t|
|000058a0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 63 6f 6d |he follo|wing com|
|000058b0| 6d 61 6e 64 2e 0a 44 69 | 67 69 74 73 20 6f 72 20 |mand..Di|gits or |
|000058c0| 6d 69 6e 75 73 20 73 69 | 67 6e 20 66 6f 6c 6c 6f |minus si|gn follo|
|000058d0| 77 69 6e 67 20 5c 5b 75 | 6e 69 76 65 72 73 61 6c |wing \[u|niversal|
|000058e0| 2d 61 72 67 75 6d 65 6e | 74 5d 20 6d 61 6b 65 20 |-argumen|t] make |
|000058f0| 75 70 20 74 68 65 20 6e | 75 6d 65 72 69 63 20 61 |up the n|umeric a|
|00005900| 72 67 75 6d 65 6e 74 2e | 0a 5c 5b 75 6e 69 76 65 |rgument.|.\[unive|
|00005910| 72 73 61 6c 2d 61 72 67 | 75 6d 65 6e 74 5d 20 66 |rsal-arg|ument] f|
|00005920| 6f 6c 6c 6f 77 69 6e 67 | 20 74 68 65 20 64 69 67 |ollowing| the dig|
|00005930| 69 74 73 20 6f 72 20 6d | 69 6e 75 73 20 73 69 67 |its or m|inus sig|
|00005940| 6e 20 65 6e 64 73 20 74 | 68 65 20 61 72 67 75 6d |n ends t|he argum|
|00005950| 65 6e 74 2e 0a 5c 5b 75 | 6e 69 76 65 72 73 61 6c |ent..\[u|niversal|
|00005960| 2d 61 72 67 75 6d 65 6e | 74 5d 20 77 69 74 68 6f |-argumen|t] witho|
|00005970| 75 74 20 64 69 67 69 74 | 73 20 6f 72 20 6d 69 6e |ut digit|s or min|
|00005980| 75 73 20 73 69 67 6e 20 | 70 72 6f 76 69 64 65 73 |us sign |provides|
|00005990| 20 34 20 61 73 20 61 72 | 67 75 6d 65 6e 74 2e 0a | 4 as ar|gument..|
|000059a0| 52 65 70 65 61 74 69 6e | 67 20 5c 5b 75 6e 69 76 |Repeatin|g \[univ|
|000059b0| 65 72 73 61 6c 2d 61 72 | 67 75 6d 65 6e 74 5d 20 |ersal-ar|gument] |
|000059c0| 77 69 74 68 6f 75 74 20 | 64 69 67 69 74 73 20 6f |without |digits o|
|000059d0| 72 20 6d 69 6e 75 73 20 | 73 69 67 6e 0a 20 6d 75 |r minus |sign. mu|
|000059e0| 6c 74 69 70 6c 69 65 73 | 20 74 68 65 20 61 72 67 |ltiplies| the arg|
|000059f0| 75 6d 65 6e 74 20 62 79 | 20 34 20 65 61 63 68 20 |ument by| 4 each |
|00005a00| 74 69 6d 65 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |time...(|defalias|
|00005a10| 20 27 75 6e 69 76 65 72 | 73 61 6c 2d 61 72 67 75 | 'univer|sal-argu|
|00005a20| 6d 65 6e 74 20 23 5b 6e | 69 6c 20 22 c0 43 11 c2 |ment #[n|il ".C..|
|00005a30| 20 47 13 5c 66 89 15 87 | 22 20 5b 34 20 70 72 65 | G.\f...|" [4 pre|
|00005a40| 66 69 78 2d 61 72 67 20 | 74 68 69 73 2d 63 6f 6d |fix-arg |this-com|
|00005a50| 6d 61 6e 64 2d 6b 65 79 | 73 20 75 6e 69 76 65 72 |mand-key|s univer|
|00005a60| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 2d 6e 75 6d |sal-argu|ment-num|
|00005a70| 2d 65 76 65 6e 74 73 20 | 75 6e 69 76 65 72 73 61 |-events |universa|
|00005a80| 6c 2d 61 72 67 75 6d 65 | 6e 74 2d 6d 61 70 20 6f |l-argume|nt-map o|
|00005a90| 76 65 72 72 69 64 69 6e | 67 2d 74 65 72 6d 69 6e |verridin|g-termin|
|00005aa0| 61 6c 2d 6c 6f 63 61 6c | 2d 6d 61 70 5d 20 32 20 |al-local|-map] 2 |
|00005ab0| 28 23 24 20 2e 20 32 32 | 36 35 38 29 20 6e 69 6c |(#$ . 22|658) nil|
|00005ac0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 6e |]).(defa|lias 'un|
|00005ad0| 69 76 65 72 73 61 6c 2d | 61 72 67 75 6d 65 6e 74 |iversal-|argument|
|00005ae0| 2d 6d 6f 72 65 20 23 5b | 28 61 72 67 29 20 22 08 |-more #[|(arg) ".|
|00005af0| 3a 83 0e 00 08 40 c1 5f | 43 12 82 12 00 08 12 c3 |:....@._|C.......|
|00005b00| 14 c5 20 47 89 16 06 87 | 22 20 5b 61 72 67 20 34 |.. G....|" [arg 4|
|00005b10| 20 70 72 65 66 69 78 2d | 61 72 67 20 6e 69 6c 20 | prefix-|arg nil |
|00005b20| 6f 76 65 72 72 69 64 69 | 6e 67 2d 74 65 72 6d 69 |overridi|ng-termi|
|00005b30| 6e 61 6c 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 74 68 |nal-loca|l-map th|
|00005b40| 69 73 2d 63 6f 6d 6d 61 | 6e 64 2d 6b 65 79 73 20 |is-comma|nd-keys |
|00005b50| 75 6e 69 76 65 72 73 61 | 6c 2d 61 72 67 75 6d 65 |universa|l-argume|
|00005b60| 6e 74 2d 6e 75 6d 2d 65 | 76 65 6e 74 73 5d 20 32 |nt-num-e|vents] 2|
|00005b70| 20 6e 69 6c 20 22 50 22 | 5d 29 0a 23 40 31 32 39 | nil "P"|]).#@129|
|00005b80| 20 42 65 67 69 6e 20 61 | 20 6e 65 67 61 74 69 76 | Begin a| negativ|
|00005b90| 65 20 6e 75 6d 65 72 69 | 63 20 61 72 67 75 6d 65 |e numeri|c argume|
|00005ba0| 6e 74 20 66 6f 72 20 74 | 68 65 20 6e 65 78 74 20 |nt for t|he next |
|00005bb0| 63 6f 6d 6d 61 6e 64 2e | 0a 5c 5b 75 6e 69 76 65 |command.|.\[unive|
|00005bc0| 72 73 61 6c 2d 61 72 67 | 75 6d 65 6e 74 5d 20 66 |rsal-arg|ument] f|
|00005bd0| 6f 6c 6c 6f 77 69 6e 67 | 20 64 69 67 69 74 73 20 |ollowing| digits |
|00005be0| 6f 72 20 6d 69 6e 75 73 | 20 73 69 67 6e 20 65 6e |or minus| sign en|
|00005bf0| 64 73 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 2e |ds the a|rgument.|
|00005c00| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 6e 65 67 |..(defal|ias 'neg|
|00005c10| 61 74 69 76 65 2d 61 72 | 67 75 6d 65 6e 74 20 23 |ative-ar|gument #|
|00005c20| 5b 28 61 72 67 29 20 22 | 08 a8 83 0b 00 08 5b 11 |[(arg) "|......[.|
|00005c30| 82 18 00 08 c2 3d 83 16 | 00 c3 11 82 18 00 c2 11 |.....=..|........|
|00005c40| c4 20 47 15 0e 06 89 16 | 07 87 22 20 5b 61 72 67 |. G.....|.." [arg|
|00005c50| 20 70 72 65 66 69 78 2d | 61 72 67 20 2d 20 6e 69 | prefix-|arg - ni|
|00005c60| 6c 20 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 2d 6b |l this-c|ommand-k|
|00005c70| 65 79 73 20 75 6e 69 76 | 65 72 73 61 6c 2d 61 72 |eys univ|ersal-ar|
|00005c80| 67 75 6d 65 6e 74 2d 6e | 75 6d 2d 65 76 65 6e 74 |gument-n|um-event|
|00005c90| 73 20 75 6e 69 76 65 72 | 73 61 6c 2d 61 72 67 75 |s univer|sal-argu|
|00005ca0| 6d 65 6e 74 2d 6d 61 70 | 20 6f 76 65 72 72 69 64 |ment-map| overrid|
|00005cb0| 69 6e 67 2d 74 65 72 6d | 69 6e 61 6c 2d 6c 6f 63 |ing-term|inal-loc|
|00005cc0| 61 6c 2d 6d 61 70 5d 20 | 32 20 28 23 24 20 2e 20 |al-map] |2 (#$ . |
|00005cd0| 32 33 34 32 35 29 20 22 | 50 22 5d 29 0a 23 40 31 |23425) "|P"]).#@1|
|00005ce0| 32 34 20 50 61 72 74 20 | 6f 66 20 74 68 65 20 6e |24 Part |of the n|
|00005cf0| 75 6d 65 72 69 63 20 61 | 72 67 75 6d 65 6e 74 20 |umeric a|rgument |
|00005d00| 66 6f 72 20 74 68 65 20 | 6e 65 78 74 20 63 6f 6d |for the |next com|
|00005d10| 6d 61 6e 64 2e 0a 5c 5b | 75 6e 69 76 65 72 73 61 |mand..\[|universa|
|00005d20| 6c 2d 61 72 67 75 6d 65 | 6e 74 5d 20 66 6f 6c 6c |l-argume|nt] foll|
|00005d30| 6f 77 69 6e 67 20 64 69 | 67 69 74 73 20 6f 72 20 |owing di|gits or |
|00005d40| 6d 69 6e 75 73 20 73 69 | 67 6e 20 65 6e 64 73 20 |minus si|gn ends |
|00005d50| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 2e 1f 0a 28 |the argu|ment...(|
|00005d60| 64 65 66 61 6c 69 61 73 | 20 27 64 69 67 69 74 2d |defalias| 'digit-|
|00005d70| 61 72 67 75 6d 65 6e 74 | 20 23 5b 28 61 72 67 29 |argument| #[(arg)|
|00005d80| 20 22 c0 09 c2 5c 22 c3 | 5a 1c 0d a8 83 21 00 0d | "...\".|Z....!..|
|00005d90| c6 5f 0d c7 57 83 1a 00 | 5c 66 5b 82 1b 00 5c 66 |._..W...|\f[...\f|
|00005da0| 5c 5c 16 08 82 3b 00 0d | c9 3d 83 38 00 5c 66 c7 |\\...;..|.=.8.\f.|
|00005db0| 55 83 31 00 c9 82 33 00 | 5c 66 5b 16 08 82 3b 00 |U.1...3.|\f[...;.|
|00005dc0| 5c 66 16 08 29 ca 20 47 | 16 0b 0e 5c 66 89 16 0d |\f..). G|...\f...|
|00005dd0| 87 22 20 5b 6c 6f 67 61 | 6e 64 20 6c 61 73 74 2d |." [loga|nd last-|
|00005de0| 63 6f 6d 6d 61 6e 64 2d | 63 68 61 72 20 31 32 37 |command-|char 127|
|00005df0| 20 34 38 20 64 69 67 69 | 74 20 61 72 67 20 31 30 | 48 digi|t arg 10|
|00005e00| 20 30 20 70 72 65 66 69 | 78 2d 61 72 67 20 2d 20 | 0 prefi|x-arg - |
|00005e10| 74 68 69 73 2d 63 6f 6d | 6d 61 6e 64 2d 6b 65 79 |this-com|mand-key|
|00005e20| 73 20 75 6e 69 76 65 72 | 73 61 6c 2d 61 72 67 75 |s univer|sal-argu|
|00005e30| 6d 65 6e 74 2d 6e 75 6d | 2d 65 76 65 6e 74 73 20 |ment-num|-events |
|00005e40| 75 6e 69 76 65 72 73 61 | 6c 2d 61 72 67 75 6d 65 |universa|l-argume|
|00005e50| 6e 74 2d 6d 61 70 20 6f | 76 65 72 72 69 64 69 6e |nt-map o|verridin|
|00005e60| 67 2d 74 65 72 6d 69 6e | 61 6c 2d 6c 6f 63 61 6c |g-termin|al-local|
|00005e70| 2d 6d 61 70 5d 20 33 20 | 28 23 24 20 2e 20 32 33 |-map] 3 |(#$ . 23|
|00005e80| 37 37 39 29 20 22 50 22 | 5d 29 0a 28 64 65 66 61 |779) "P"|]).(defa|
|00005e90| 6c 69 61 73 20 27 75 6e | 69 76 65 72 73 61 6c 2d |lias 'un|iversal-|
|00005ea0| 61 72 67 75 6d 65 6e 74 | 2d 6d 69 6e 75 73 20 23 |argument|-minus #|
|00005eb0| 5b 28 61 72 67 29 20 22 | 08 a8 83 09 00 c1 08 21 |[(arg) "|.......!|
|00005ec0| 87 c2 08 21 87 22 20 5b | 61 72 67 20 75 6e 69 76 |...!." [|arg univ|
|00005ed0| 65 72 73 61 6c 2d 61 72 | 67 75 6d 65 6e 74 2d 6f |ersal-ar|gument-o|
|00005ee0| 74 68 65 72 2d 6b 65 79 | 20 6e 65 67 61 74 69 76 |ther-key| negativ|
|00005ef0| 65 2d 61 72 67 75 6d 65 | 6e 74 5d 20 32 20 6e 69 |e-argume|nt] 2 ni|
|00005f00| 6c 20 22 50 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |l "P"]).|(defalia|
|00005f10| 73 20 27 75 6e 69 76 65 | 72 73 61 6c 2d 61 72 67 |s 'unive|rsal-arg|
|00005f20| 75 6d 65 6e 74 2d 6f 74 | 68 65 72 2d 6b 65 79 20 |ument-ot|her-key |
|00005f30| 23 5b 28 61 72 67 29 20 | 22 08 11 c2 20 1b c4 0b |#[(arg) |"... ...|
|00005f40| 21 1d c6 0e 07 0d 9b 0e | 08 5c 22 16 08 2a c9 20 |!.......|.\"..*. |
|00005f50| 88 ca 89 16 0b 87 22 20 | 5b 61 72 67 20 70 72 65 |......" |[arg pre|
|00005f60| 66 69 78 2d 61 72 67 20 | 74 68 69 73 2d 63 6f 6d |fix-arg |this-com|
|00005f70| 6d 61 6e 64 2d 6b 65 79 | 73 20 6b 65 79 20 6c 69 |mand-key|s key li|
|00005f80| 73 74 69 66 79 2d 6b 65 | 79 2d 73 65 71 75 65 6e |stify-ke|y-sequen|
|00005f90| 63 65 20 6b 65 79 6c 69 | 73 74 20 61 70 70 65 6e |ce keyli|st appen|
|00005fa0| 64 20 75 6e 69 76 65 72 | 73 61 6c 2d 61 72 67 75 |d univer|sal-argu|
|00005fb0| 6d 65 6e 74 2d 6e 75 6d | 2d 65 76 65 6e 74 73 20 |ment-num|-events |
|00005fc0| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 65 |unread-c|ommand-e|
|00005fd0| 76 65 6e 74 73 20 72 65 | 73 65 74 2d 74 68 69 73 |vents re|set-this|
|00005fe0| 2d 63 6f 6d 6d 61 6e 64 | 2d 6c 65 6e 67 74 68 73 |-command|-lengths|
|00005ff0| 20 6e 69 6c 20 6f 76 65 | 72 72 69 64 69 6e 67 2d | nil ove|rriding-|
|00006000| 74 65 72 6d 69 6e 61 6c | 2d 6c 6f 63 61 6c 2d 6d |terminal|-local-m|
|00006010| 61 70 5d 20 33 20 6e 69 | 6c 20 22 50 22 5d 29 0a |ap] 3 ni|l "P"]).|
|00006020| 23 40 36 36 20 4d 6f 76 | 65 20 66 6f 72 77 61 72 |#@66 Mov|e forwar|
|00006030| 64 20 41 52 47 20 6c 69 | 6e 65 73 20 61 6e 64 20 |d ARG li|nes and |
|00006040| 70 6f 73 69 74 69 6f 6e | 20 61 74 20 66 69 72 73 |position| at firs|
|00006050| 74 20 6e 6f 6e 62 6c 61 | 6e 6b 20 63 68 61 72 61 |t nonbla|nk chara|
|00006060| 63 74 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |cter...(|defalias|
|00006070| 20 27 66 6f 72 77 61 72 | 64 2d 74 6f 2d 69 6e 64 | 'forwar|d-to-ind|
|00006080| 65 6e 74 61 74 69 6f 6e | 20 23 5b 28 61 72 67 29 |entation| #[(arg)|
|00006090| 20 22 08 79 88 c1 c2 77 | 87 22 20 5b 61 72 67 20 | ".y...w|." [arg |
|000060a0| 22 20 09 22 20 6e 69 6c | 5d 20 32 20 28 23 24 20 |" ." nil|] 2 (#$ |
|000060b0| 2e 20 32 34 36 31 33 29 | 20 22 70 22 5d 29 0a 23 |. 24613)| "p"]).#|
|000060c0| 40 36 37 20 4d 6f 76 65 | 20 62 61 63 6b 77 61 72 |@67 Move| backwar|
|000060d0| 64 20 41 52 47 20 6c 69 | 6e 65 73 20 61 6e 64 20 |d ARG li|nes and |
|000060e0| 70 6f 73 69 74 69 6f 6e | 20 61 74 20 66 69 72 73 |position| at firs|
|000060f0| 74 20 6e 6f 6e 62 6c 61 | 6e 6b 20 63 68 61 72 61 |t nonbla|nk chara|
|00006100| 63 74 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |cter...(|defalias|
|00006110| 20 27 62 61 63 6b 77 61 | 72 64 2d 74 6f 2d 69 6e | 'backwa|rd-to-in|
|00006120| 64 65 6e 74 61 74 69 6f | 6e 20 23 5b 28 61 72 67 |dentatio|n #[(arg|
|00006130| 29 20 22 08 5b 79 88 c1 | c2 77 87 22 20 5b 61 72 |) ".[y..|.w." [ar|
|00006140| 67 20 22 20 09 22 20 6e | 69 6c 5d 20 32 20 28 23 |g " ." n|il] 2 (#|
|00006150| 24 20 2e 20 32 34 37 37 | 32 29 20 22 70 22 5d 29 |$ . 2477|2) "p"])|
|00006160| 0a 23 40 37 35 20 2a 49 | 66 20 6e 6f 6e 2d 6e 69 |.#@75 *I|f non-ni|
|00006170| 6c 2c 20 60 6b 69 6c 6c | 2d 6c 69 6e 65 27 20 77 |l, `kill|-line' w|
|00006180| 69 74 68 20 6e 6f 20 61 | 72 67 20 61 74 20 62 65 |ith no a|rg at be|
|00006190| 67 20 6f 66 20 6c 69 6e | 65 20 6b 69 6c 6c 73 20 |g of lin|e kills |
|000061a0| 74 68 65 20 77 68 6f 6c | 65 20 6c 69 6e 65 2e 1f |the whol|e line..|
|000061b0| 0a 28 64 65 66 76 61 72 | 20 6b 69 6c 6c 2d 77 68 |.(defvar| kill-wh|
|000061c0| 6f 6c 65 2d 6c 69 6e 65 | 20 6e 69 6c 20 28 23 24 |ole-line| nil (#$|
|000061d0| 20 2e 20 2d 32 34 39 33 | 34 29 29 0a 23 40 33 36 | . -2493|4)).#@36|
|000061e0| 36 20 4b 69 6c 6c 20 74 | 68 65 20 72 65 73 74 20 |6 Kill t|he rest |
|000061f0| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6c |of the c|urrent l|
|00006200| 69 6e 65 3b 20 69 66 20 | 6e 6f 20 6e 6f 6e 62 6c |ine; if |no nonbl|
|00006210| 61 6e 6b 73 20 74 68 65 | 72 65 2c 20 6b 69 6c 6c |anks the|re, kill|
|00006220| 20 74 68 72 75 20 6e 65 | 77 6c 69 6e 65 2e 0a 57 | thru ne|wline..W|
|00006230| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00006240| 65 6e 74 2c 20 6b 69 6c | 6c 20 74 68 61 74 20 6d |ent, kil|l that m|
|00006250| 61 6e 79 20 6c 69 6e 65 | 73 20 66 72 6f 6d 20 70 |any line|s from p|
|00006260| 6f 69 6e 74 2e 0a 4e 65 | 67 61 74 69 76 65 20 61 |oint..Ne|gative a|
|00006270| 72 67 75 6d 65 6e 74 73 | 20 6b 69 6c 6c 20 6c 69 |rguments| kill li|
|00006280| 6e 65 73 20 62 61 63 6b | 77 61 72 64 2e 0a 0a 57 |nes back|ward...W|
|00006290| 68 65 6e 20 63 61 6c 6c | 69 6e 67 20 66 72 6f 6d |hen call|ing from|
|000062a0| 20 61 20 70 72 6f 67 72 | 61 6d 2c 20 6e 69 6c 20 | a progr|am, nil |
|000062b0| 6d 65 61 6e 73 20 22 6e | 6f 20 61 72 67 22 2c 0a |means "n|o arg",.|
|000062c0| 61 20 6e 75 6d 62 65 72 | 20 63 6f 75 6e 74 73 20 |a number| counts |
|000062d0| 61 73 20 61 20 70 72 65 | 66 69 78 20 61 72 67 2e |as a pre|fix arg.|
|000062e0| 0a 0a 49 66 20 60 6b 69 | 6c 6c 2d 77 68 6f 6c 65 |..If `ki|ll-whole|
|000062f0| 2d 6c 69 6e 65 27 20 69 | 73 20 6e 6f 6e 2d 6e 69 |-line' i|s non-ni|
|00006300| 6c 2c 20 74 68 65 6e 20 | 6b 69 6c 6c 20 74 68 65 |l, then |kill the|
|00006310| 20 77 68 6f 6c 65 20 6c | 69 6e 65 0a 77 68 65 6e | whole l|ine.when|
|00006320| 20 67 69 76 65 6e 20 6e | 6f 20 61 72 67 75 6d 65 | given n|o argume|
|00006330| 6e 74 20 61 74 20 74 68 | 65 20 62 65 67 69 6e 6e |nt at th|e beginn|
|00006340| 69 6e 67 20 6f 66 20 61 | 20 6c 69 6e 65 2e 1f 0a |ing of a| line...|
|00006350| 28 64 65 66 61 6c 69 61 | 73 20 27 6b 69 6c 6c 2d |(defalia|s 'kill-|
|00006360| 6c 69 6e 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |line #[(|&optiona|
|00006370| 6c 20 61 72 67 29 20 22 | c0 60 09 83 0e 00 c2 09 |l arg) "|.`......|
|00006380| 21 79 88 82 2f 00 6d 83 | 17 00 c3 c4 c5 5c 22 88 |!y../.m.|.....\".|
|00006390| c6 c7 21 84 26 00 0e 08 | 83 2c 00 6e 83 2c 00 c9 |..!.&...|.,.n.,..|
|000063a0| 79 88 82 2f 00 c5 7f 88 | 60 5c 22 87 22 20 5b 6b |y../....|`\"." [k|
|000063b0| 69 6c 6c 2d 72 65 67 69 | 6f 6e 20 61 72 67 20 70 |ill-regi|on arg p|
|000063c0| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|000063d0| 6c 75 65 20 73 69 67 6e | 61 6c 20 65 6e 64 2d 6f |lue sign|al end-o|
|000063e0| 66 2d 62 75 66 66 65 72 | 20 6e 69 6c 20 6c 6f 6f |f-buffer| nil loo|
|000063f0| 6b 69 6e 67 2d 61 74 20 | 22 5b 20 09 5d 2a 24 22 |king-at |"[ .]*$"|
+--------+-------------------------+-------------------------+--------+--------+